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Congratulations! You now own a Symtec Light Pen. This is 
the finest light pen available for the Apple Computer and meets 
professional quality and specification standards. 

A System equipped with a light pen opens entire new vistas 
of application for computers. Applications are numerous and 
include graphics, games, scientific and technical uses as well 
as educational, exhibit and handicapped uses. Literally any 
function programmable on your computer, can be controlled by 
your light pen. Disk control, printer control, light pen 
music, and lo-res graphic data measurement, and more, are all 
achievable with a light pen. In fact, programs can be written 
to allow users to operate your computer without ever requiring 
the use of the keyboard. 

The Symtec Light Pen is also designed to operate with video 
provided from non-computer sources such as videotape, 
videodisc, or closed circuit television and can control 
identification and measurement uses. 

We hope that you will enjoy this powerful professional 
instrument and the new dimensions that it provides to your 
system. 

Symtec, Inc. 



WHAT YOU WILL NEED 



This manual was in the box. The box should also contain: 

1 . Light Pen barrel on a, 

2. black telephone cord attached to, 
5. the Apple interface card with a, 

4. colored wire with a red, covered clip. 

5. A 5 1/4" diskette. 

On the barrel, just behind the. nose of the pen, is the 
"touch-ring". (NOTE: A Push-Ttp Light Pen is available, same price) 

You, of course, must supply the Apple computer, and 1 or 2 
disk drives. Our diskette is DOS 3-3 if your DOS is 3-2 please 
call or write ua and we'll exchange it for you. 



Your light pen can be used on a 
color TV will require an "RF Modulator" 
a monitor (color or B&W) can be hooked 
that has a phono plug (male RCA conn 
something to match the monitor at the 
reacts best to B&W and color screens 
with most sets to respond to areas of 
to be "black", however, the Light Pe 
to light from the screen and this impl 
the screen that provides something for 
TV monitors with green screens do no 
pass through and the light pen cannot 
sets. 



monitor or color TV. A 

with connecting cables, 
up directly with a cable 
ector) for the Apple and 
ther end. The light pen 
and can even be adjusted 
the screen normally said 
n is designed to respond 
ies that a display is on 

the pen to "see". Some 
t permit enough light to 

"see" anything on these 



If you already have your Apple computer set up you won't 
have to do much more. 



Toudi-Ring 




TO INSTALL 
FOLLOWING: 



THE SYMTEC LIGHT PEN IN YOUR COMPUTER PERFORM THE 



1 . Turn the Apple II GPP. 

2. Open the lid of the Apple II case. 

3. Install the interface card in slot #5* 

(see Figure 1). NOTE: The slots are numbered at the back end 
of the motherboard. When installing the interface card, the 
components are to the right as you sit in front of the 
keyboard . 

4. Clip the colored wire to the center post of the Apple 
VIDEO OUTPUT JACK. (Locate the video output jack and the video 
output potentiometer adjustment screw at the back right corner 
of the Apple.) 

5. Turn the VIDEO OUTPUT POTENTIOMETER fully clockwise. 

6. Run the light pen cord through the rear of the case. 

7. Leave the lid off and turn the power ON. 

You are now ready to align the Pen and register it to your 
own TV set. 



*To operate the light pen in a different slot, refer to page 
17 . 

J^ple vic3eo output 
/ jack 




Video 

Output 

Potentiomster 



Put the light pen diskette in and "boot it" by turning the 
computer on or hit reset then type 6 control-p or pr#6 

If the boot is good, on the screen will appear 

SYMTEC LIGHT PEN DISK 

VERSION 2 

APPLE DOS 5.5 

ALL PROGRAMS COPYRIGHT SYMTEC, INC. 

1 . LIGHT PEN OPERATED CATALOG 

2. CATALOG 
5. EXIT 

PLEASE TYPE OPTION: 

If not, you may have a D.O.S. 3 '2 machine or a loose 
connection between your computer and disk drive. Try again or 
refer to page 15 of the Applesoft tutorial manual supplied with 
your Apple. 

Now type "2" and hit RETURN. You'll get a catalog of files 
on the diskette. Type "run startup". There are 4 adjustments 
you may have to make, they are (1 )Sensitivity, (2)Sync, 
(3)Horizontal alignment (X), 
(4)Vertical alignment (Y). See below. 



/I. (Sensitivity) 
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Y X SYNC 
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(1) Ad;just the sensitivity as instructed on the screen. See 
below for reference. 



Sensitivity Correct 



"Click. . . 
Click. 
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Sensitivity Incorrect 
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"Click... 
Click. 
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(2) To adjust the "sync", touch the ring and the screen should 
go black. If a straight line moves left to right and the same 
numbers appear at the bottom, your light pen is already in 
sync. if not, turn the sync pot until the numbers are 
appearing the same and the dots plot a straight line. Once 
completed, hit RESET, type RUN X Y CHECK, and do adjustments 3 
and 4. 



Incnrrect Sync 



Correct Sync 





Note: The number 190 is used as an 
exanple. Your number may be different. 



(3 and 4) This adjustment is for aligning your pen to the exact 
pixel. 4 dots will appear and their coordinates will be the 
same as below. To verify that your light pen sees only these 
dots, turn the brightness down until numbers flash only when 
you point at one of the 4 dots. Then turn your X and Y pots 
until the numbers below (the X coordinate is on the left) 
match. When you are finished hit RESET and type BRUN C to get 
to the light pen operated catalog. 



(20,20) 



(250,20) 



(20,140) 



(250,140) 



Now that you have successfully set up your light pen, you 
are ready to program your light pen. But you need to learn the 
commands . 

THE SEVEN COMMANDS OP THE SYMTEC HIGH RESOLUTION LIGHT PEN 
(Applesoft) 



1 . 29000 POKE -16176,0 

this starts the light pen receiving light from the TV 
screen and calculates the X and Y position of where the pen is 
being pointed. It stores the numbers in Apple memory. 

2. 29010 IP PEEK(-16175)<128 then 29010 

this command stalls the program until the entire screen 
is scanned. 

3. 29020 IP PEEK(-16170)<128 then 29020 

stalls the program until the ring is touched. 

4. 29030 ZY = PEEK(-16173) 

this reveals the high resolution Y coordinate to the 
computer and stores it in variable ZY 

5. 29040 ZX = PEEK(-16174)+256*(PEEK(-16172)>127) 

this reveals the high resolution X coordinate to the 
computer, makes adjustments for X values over 255, and stores 
it in variable ZX 

6. 29050 Y =IlfT(ZY/8)+1 

this resolves the Y high resolution coordinate into 
low resolution format. 

7. 29060 X =INT(ZX/7)+1 

this does the same conversion to low-res for X as Y 

8. 29100 Return 



]LIST 



10 

25 

29 

50 

39 

40 

49 

50 

51 

52 

60 

70 

80 

90 

500 

1000 

1001 

1010 

1020 

1040 

2000 

2010 

2011 

2020 

2030 

2035 

2040 

2050 

2060 

2070 

2080 

2100 

3000 

3010 

3020 

3040 

3060 

29000 

29010 

29020 

29030 

29040 

29050 

29O6O 

29100 



MEM EXAMPLE 



REM 

HOME 

HTAB 20 

VTAB 1 : 

HTAB 20 

VTAB 2: 

HTAB 20 

VTAB 3: 

NORMAL 

VTAB 15: PRINT 

GOSUB 29000 

IP Y = 1 THEN 

IP Y = 2 THEN 

IP Y = 3 THEN 

aoTO 25 

HOME : 



INVERSE : PRINT " 1 " 
INVERSE : PRINT "2" 
INVERSE : PRINT "3" 



"PLEASE POINT THE LIGHT PEN AT ONE OP THE NUMBERS" 



GOSUB 
GOSUB 
GOSUB 



1000 
2000 
3000 



PRINT "SEGMENT 1 COULD 
VTAB 10: PRINT "TOUCH RING TO 
FOR G =1 TO 1000: NEXT G 
GOSUB 29000 
RETURN 
GOTO 2010 

HOME : PLASH : PRINT "NEW" 
NORMAL : PRINT "HOW MANY LETTERS 
VTAB 5: PRINT "29" 



BE A FILE 
RETURN TO 



OP A CUSTOMER" 
MENU" 



IN THE ALPHABET?" 



"26" 
•23" 



VTAB 10: PRINT 
VTAB 15: PRINT 
GOSUB 29000 
AN = Y 
IF AN 
IP AN 
IP AN 
RETURN 
HOME : 
FOR M = 1 TO 1000: NEXT 



< 10 
> 10 
= 10 



THEN 
THEN 
THEN 



PRINT 
PRINT 
PRINT 



"TOO HIGH, TRY AGAIN" 
"TOO LOW, TRY AGAIN": 
"RIGHT! 



; GOTO 2011 
GOTO 2011 

": POR D = 



1 TO 500: NEXT 



VTAB 15: PRINT "YOU COULD PUT YOUR CHECKBOOK UNDER THIS SEGMENT" 



VTAB 10: PLASH 

GOSUB 29000 

RETURN 
POKE - 16176,0 
IP PEEK ( - 16175) 
IF PEEK ( - 16170) 



PRINT "TOUCH RING TO RETURN TO MENU" 



128 
128 



ZY = 
ZX = 
Y = 

X = 



RETURN 



PEEK 

PEEK ( 
INT (ZY 
INT (ZX 



( - 



16173) 
16174) 
8) + 1 
7) + 1 



THEN 
THEN 



29010 
29020 



+ 256 * ( PEEK ( - 16172) > 127) 



Type the commands in first whenever you are writing a 
program to use the light pen and then put in "GOSUB 29000" 
whenever you want to use the light pen. vfe recxamtend 
the Applesoft Tutorial as a prerequisite for continuing. 

You can make a flip chart type program that is activated by 
the light pen. Type in the 7 commands and the return statment 
first and then type this; 

100 VTAB 12: PRINT "1981 was a good year" 

110 GOSUB 29000 

120 VTAB 14: PRINT "1980 was a great year" 

130 GOSUB 29000 

140 VTAB 16: PRINT "1982 will be better!" 

150 GOSUB 29000 

160 HOME: VTAB 1 2:PRINT"how' s that for optimism?" 

170 GOTO 100 ... 

You must touch the ring before the next print, statement 
will be activated. Try it. 

On the following page is an example of a light pen operated 
menu. Remember that the Apple prints text in the screen mode 
called 'LORES/TEXT' or resolution of 40 pixels across by 24 
down. To make your light pen "see" 40 X 24 we use commands #6 
and #7. This enables you to make the light pen coordinates of 
X and Y equal to VTABS and HTABS. Thus, you can VTAB 1 :HTAB 20 
and then print the number "1", and know that when the light pen 
is pointing at the number "1", its x and y coordinates in 
LORES/TEXT will match(Y will equal 1, X will equal 20). Now 
you can tell the computer to do a specific task if Y equals 1 
and if Y is equal to something else, then do another specific 
task. Take a minute or two and try this program. 



SYMTEC LIGHT PEN SOFTWARE 
LIGHT PEN TABLET 

WHAT YOU'L L NEED 

.Apple II (with applesoft card) or Apple II Plus, 48K 

.1 or 2 disk drives (Dos 3.5) 

•Color Monitor 

.Symtec High-Res Light Pen 

.Symtec L.P. Diskette 

WHAT YOU ' LL BE ABLE TO DO 

Use the light pen to create colorful graphics or pictures. 
Designed to work similar to the Apple Graphics Tablet. You can 
draw in different colors on colored backgrounds. You can touch 
two dots on the screen and the computer will make a colored box 
or frame or line using the dots as corners or endpoints. You 
can touch two dots on the screen and the computer will draw the 
perimeter of a circle or a colored disk using the first dot as 
the center and the second dot as the edge of the circle. Or 
the pen will draw colored dots only! You can save your artwork 
on disk for future touch-ups or put the picture on another disk 
to use in a program. 

HOW TO START 

Hook up the Apple equipment according to the manual. Hook 
up the Symtec light pen according to the manual and calibrate 
it to the TV. Then put the Light Pen diskette into disk drive 
#1 . "RUN TABLET" 

The first menu you'll see will be the "main menu". Point to 
"pen mode", touch the ring, okay the choice and the "pen mode" 
menu will appear. Choose "BACKGROUND COLOR". (You must choose 
your background color before any other pen mode choice.) Eight 
colors will be displayed in columns (left to right-blackl , 
magenta,..., etc.). Choose a color by pointing the pen to a 
color and touching the ring. When the color is chosen the 
computer will fill the screen with that color background and 
then display the "pen mode" menu. Choose "pen color", pick a 
color, then box or disk, etc. and off you go. 



MAIN MENU 

CLEAR-clears screen 

PEN MODE-takes you to "pen mode" menu 

DISK COMMANDS-lets you "save" or "load" a picture. You must 

type the picture name in. Catalog allows you to see what's 

already on the disk. 

DISTANCE-plot two points (hv touching the ring) on your picture 

and the distance (in pixels} will be displayed. 

QUIT-lets you go on to another program. 

PEN MODE 

DRAW-draws in color-when the ring is touched it will draw. 

When you let go, it won't. 

LINES-draws line from first dot to second dot. Dot is plotted 

when you touch the ring 

DOTS-puts colored dots on the screen when ring is touched. 

PRAME-uses first dot as upper left corner of frame and second 

dot as lower right corner. Draws rectangular frame. 

BOX-same as frame only the entire inside is filled in color. 

CIRCLE-same principle as frame only first dot is center, second 

dot outside edge of circle. 

DISK-same as circle only inside is filled in color. 

BACKGROUND COLOR-changes entire screen to one color, which you 

choose immediately after okaying backgound color. 

PEN COLOR-changes pen color, same way as changing background 

color. 

VIEW PICTURE-lets you view the drawing 

MAIN-takes you to main menu 



COLOR ANOMALIES 
UNUSUAL COLOR EFFECTS 

Unusual things happen with color combinations and the 
Symtec Tablet software program. These dashed lines, zebra 
stripes, and color shadows are a result of the Apple computer 
and not your light pen or software. The reason is that in the 
high resolution graphics mode, there are 280 X 1 92 or 53,760 
pixels that require a "bit" of memory. Multiply that by 8 
colors and the Apple would require several hundred thousand 
bits of information to properly handle an 8 color high 
resolution picture. A 48K Apple simply cannot handle all the 
colors. 



The best way to avoid the "anomalies" is to use only black 
and white. The functions draw, frame, lines, and circle are 
most affected, while box, disk, and dots are least bothered by 
using colors. You can also get better results by using colors 
in the "1" group with "1"'s and "2"'s with 2's. The "1" group 
includes the four colors on the left and the "2"'s are the 
rest, each group has its own black and white. 



MENU EXAMPLE is a partially completed menu. Study it and 
this page to understand the basic idea. 



How you view the screen. . . 



Kow yoxar light pen views 
the screen. . . 



VTAB 1 



VTAB 18 



File 



Y=l 



Y=18 



Whatever you print after VTAB 1 will correspond equally 
with the "Y" valve returned by the light pen. (lou have 40 
characters with which to print on that line). Thus when you 
VTAB 18: PRINT "X Pile" and then GOSUB 29000, the light pen will 
be pointing at "X Pile" when Y=18. Then just say "If Y=18 
GOTO (X Pile) 



The following programs are on your diskette; 



*A 024 LIUHT PEN TABLET 

*B 006 PEN DRAW OBJ V2 

*B 016 ZPEN DRAW. OB J 

*A 003 LIGHT PEN DRAW APLSPT 

*I 003 LIOHT PEN DRAW INT BASIC 

*A 003 HELLO 

*I 003 APPLESOFT 

*A 007 ZAPPLESOPT PEN ROUTINE 

*I 026 CHECKERS 

*B 037 HYDRAULICS TUTOR 

*I 008 Z INTEGER PEN ROUTINE 

*A 017 LIGHT PEN CONCENTRATION 

*B 005 C 

*B 002 ZMACHINE CODE PEN ROUTINE 

*A 009 STARTUP 

*A 004 X Y CHECK 

*B 002 YCNT 

*A 005 MENU EXAMPLE 



MENUEXAMPLE, STARTUP, and X Y CHECK have already been 
explained. LIGHT PEN TABLET is explained on the following 
pages. Programs that have a Z in the front of their file names 
are machine code programs called by other programs on this 
diskette. YCNT and PEN DRAW OBJ V2 are binary files called by 
startup and LIGHT PEN TABLET. HELLO and APPLESOFT are catalog 
programs. The program C is the light pen operated catalog 
which will automatically add any new files that you save onto 
the disk. 

LIGHT PEN DRAW has an integer, applesoft, and machine code 
version. First, choose a background color by typing a B or W 
(black or white) and then the pen will draw the opposite color. 
To erase the screen, point at the bottom line. To point at the 
screen and not draw, touch the ring. To save a drawing, hit 
RESET, then type BSAVE( picture name) , A$2000,L$3PPP. To recall 
a saved picture on disk, type HGR2 , hit RETURN and type BLOAD 
(■Dicture name) . 

Try LIGHT PEN CONCENTRATION. The object is to match two 
squares and score a point. To uncover the contents of a square, 
point the light pen at it and touch the ring. The computer 
will keep score. You can have 2 players or try your luck 
against the computer. 

CHECKERS requires your computer to have Integer langua.ge. 
First, choose the colors of your checkerboard and players. 
Point and touch the ring to move a player. 

HYDRAULICS TUTOR has its instructions built into it and is 
an interactive training system. Students use the light pen to 
take readings and locate the malfunction in the system. 



HOW TO USE YCUR SmSEC HIGH-RES LIGHT PEN WITH VIDEO FRa4 H^f-CXSffi'UTER SOURCES 

The Sytntec liglit pen for the i^ple has an interesting feature. 
Tne pen can be used to neasiire, trace, etc., video images frcan a 
t^pe recorder, video-disc player, live caimera, etc. You'll need 
another itonitor and a souroe of video. Tha diagram belcw shows 
you how to hook up tiiis system. 



VIDED OUT 
TAPE/DISC 



SUBJECT 
MONITOR 



SYNC LEAD 



APPLE 



LIGHT 



APPLE 
COMPUTER 



viraD 



APPI£ 
MONITOR 
(imTA) 



THE SCREEN 



The Apple Computer sends out signals to the CRT (cathode 
ray tube) or TV which then displays the message on the screen. 
The screen mode or picture is a collection of tiny dots or 
pixels which can be individually colored. The Apple picture 
does not use all the possible pixels that are available to it 
from the CRT. It uses a square in the middle that is 280 
pixels across and 192 pixels down or most of the screen. When 
your light pen is pointing to the screen, it "sees" a grid of 
pixels (280 x 192) or 53,750 dots. It automatically puts the X 
and Y coordinate in memory. Since it is working with the Apple 
computer, it can only receive or work with the pixels that it 
is given or the 53,760 in the square. Sometimes, this accuracy 
is not necessary because you would be happy to be somewhat near 
a general area. There are ways to do this with software. 

A popular screen mode is called low resolution with text 
(lores/text). a lores/text pixel is actually 4 HIRES pixels 
high and 7 HIRES pixels wide. To make your light pen "see" 
only lores/text pixels you have to" tell it that pixels in an 
area 7 pixels across and 4 pixels ,daep (28 pixels in all) are 
the same point. Your light pen always sees individual pixels, 
so after you find out what the HIRES coordinates are, you have 
to mathematically convert HIRES to LORES/TEXT. The .formulas 
are below. We mostly convert to the popular LORES /TEXT which 
is the- screen mode youb Apple prints text in. 

CuNVER'i-iNU HIRES COORDINATES TO LORES /TEXT OR LORES 

LORES /TEXT 

X=IN1:aZX77) + 1 
Y=?INT(ZY/8) + 1 



LORES 

X-INT ( ZX/7 ) 
Y=INT(ZY/4) 



USING A DIPPERENT; SLOT 

Moving the Symtec Lagmi r^n,\-ca.rM xo a different slot 
requires that you change the - carl addresses in the driver 
routines. If you are willing to do ihis, you may place the 
Light Pen card in any, slot, exceipt #0. The addresses for the 
peeks and pokes can be calculated as follows: 

address=old address + l6*(slot #-5) 

or in hexadecimal* 

$C08X + $N0 

Where H is slot # and X is caird address 

The old addresses are: 

START P0KE-16176,LINE $CODO 

DONE PEEk(-16l75)>127 $C0D1 

X>255 PEEK(-16172)>127 $C0D4 

X PEEK(-16174) $C0D2 

Y " PEEK(-16173) ' $C0D3 

ring: PEEK(-16170)>127 $C0D6 



SLOT 



Si-art 


-16240 


-16224 


-16208 


-16192 


-16160 


-16144 


Done 


-16239 


-16223 


-16207 


-16191 


-16159 


-16143 


X 


-16238 


-16222 


-16206 


-16190 


-16158 


-16142 


Y 


-16237 


-16221 


-16205 


-16189 


-16157 


-16141 


X>255 


-16236 


-16220 


-16204 


-16188 


-16156 


-16140 


Ring 


-16234 


-16218 


-16202 


-16185 


-16154 


-16138 


Or In Hexidsciinal 












SLOT 


1 


2 


3 


4 


6 


7 


Start 


C090 


GQftO 


OOBO 


0000 


OOBO 


mpo 


Done 


CXD91 


noAi 


CDBl 


OOCl 


OOEl 


OOFl 


X 


CX)92 


CXIA2 


00B2 


C0C2 


C0R2 


mF2 


y 


Cr)93 


CXM 


CXSB3 


C0C3 


cnR3 


caF3 


X>255 


C094 


CQA4 


0QB4 


ocx:4 


CQE4 


0CF4 


Ring 


0096 


ome 


O0B5 


00C6 


G0E6 


mF6 



Section IV. APPENDICES 



APPENDIX 1 
Subroutine ti stings 



Machine Code Pen Routine 16 

Light Pen Draw 19 

Catalog Select Program 32 

Integer Pen Routine 42 

Applesoft Pen Routine 43 

Light Pen Concentration 44 



0800 




1 




DCM 


"PR#1" 


0800 




2 ; 








0800 




3 ; 


machinf; code ligh 


0800 




4 ; 


ON 


ENTRY 




0800 




5 . 


• rwait = 


FOR NO 


0800 




6 , 




ss- 


-1 FOR PF 


0800 




7 ; 








0800 




8 i 


ON 


EXIT: 




0800 




9 , 


■ XHIGH,XLOW 


0800 




10 


J YLOW 


= 


0800 




11 


r XLORFS,YLORFS = 


0800 




12 , 


• XTFXT YTFXT . = 


0800 




13 , 








0800 


A9FF 


14 1 


.PEN 


LDA 


f$FF 


0802 


8D3103 


15 




STA 


XHIGH 


0805 


8D3003 


16 




STA 


XLOW 


0808 


8D3203 


17 




' STA 


YLOW 


080B 


8D3803 


18 




STA 


LINE 


080E 


A528 


19 




LDA 


BASE 


0810 


8596 


20 




STA 


OLDBAS 


0812 


A529 


21 




LDA 


BASE+1 


0814 


8597 


22 




STA 


OLDBAS+1 


0816 


EE3803 


23 I 


-OOP 


INC 


LINE 


0819 


AD3803 


24 




LDA 


LINE 


081C 


8DD0C0 


25 




STA 


START 


081F 


2CD1C0 


26 V 


WIT 


BIT 


DONE 


0822 


lOFB 


27 




BPL 


WAIT 


0824 


2C3903 


28 




BIT 


RWAIT 


0827 


1005 


20 




BPL 


DNT 


0829 


2CD6C0 


30 




BIT 


RING 


08 2C 


lOFl 


31 




BPL 


WAIT 


082F 


ADD4C0 


32 r 


)NT 


LDA 


XOVFL 


0831 


2A 


33 




ROL 




0832 


A900 


34 




LDA 


#0 


0834 


2A 


35 


1 : 


ROL 




0835 


CD3103 


36 




CMP 


XHIGH 


0838 


9008 


37 




BCC 


NEWC 


08 3A 


ADD2C0 


38 




LDA 


XCOORD 


083D 


CD3003 


39 


: , - - ' 


CMP 


XLOW 


0840 


B019 


40 




BCS 


GRFST 


0842 


ADD4C0 


41 I 


iEViC 


LDA 


XOVFL 


0845 


2A 


42 




ROL 




0846 


A900 


43 




LDA 


#0 


0848 


2A 


44 




ROL 




0849 


8D3103 


45 




STA 


XHIGH 


084C 


ADD2C0 


46 




LDA 


XCOORD 


084F 


8D3003 


47 




STA 


XLOW 


0852 


ADD3C0 


48 




LDA 


YCOORD 


0855 


8D3203 


49 




STA 


YLOW 


0858 


38 


50 




SEC 




0859 


BOBB 


51 




BCS 


LOOP 



LIGHT PFN DRIVER ROUTINF 



HI-RFS X COORD 
HI-RFS Y COORD 
LORES COORDS 
TEXT COORDS 



;INIT MAX X-COORD 



; SAVE OLD TEXT BASE ADDRESS 



; INCREMENT PEN COORDINATES AROUND 
; 'TEARDROP' WINDOW UNTIL MINIMUM X 
; START PFN 
;WAIT FOR PEN TO GO DONE 

;IF PEN WAIT IS TRUE (-1) 

;THFN WATT FOR PFNSWITCH 

;GFT X OVFRFLOW VALUF (0 OR 1) 



;CHFCK IF WF HAVE NEW MINIMUM 
;S0 WF CAN SET UP TO FIND THF 
;NFXT VALUF OR SEE IF 
;WF HAVE ALREADY HAD A SMALLFST X 

;SET UP A NEW MINIMUM VALUF 



IE 



;AND GET ANOTHER VALUE FROM PEN 



085B 




52 


PAG 




085B 


AD3203 


53 


GRFST LDA 


YLOW 


085F 


4A 


54 


LSR 




085F 


4A 


55 


LSR 




0860 


8D3403 


56 


STA 


YLORES 


0863 


4A 


57 


LSR 




0864 


8D3603 


58 


STA 


YTEXT 


0867 


A907 


59 


LDA 


#7 


0869 


8D3F03 


60 


STA 


YH 


086C 


AD3103 


61 


LDA 


XHIGH 


086F 


8D3D03 


62 


STA 


XH 


0872 


AD3003 


63 


LDA 


XLOW 


0875 


8D3C03 


64 


STA 


XL 


0878 


A900 


65 


DIVIDE LDA 


#0 


087A 


8D3A03 


66 


STA 


QUOTL 


087D 


8D3B03 


67 


STA 


QUOTH 


0880 


8D3E03 


68 


STA 


YL 


0883 


AOlO 


69 


LDY 


#16 


0885 


0E3A03 


70 


DIV2 ASL 


QUOTL 


0888 


2E3B03 


71 


. ROL 


QUOTH 


088B 


2E3C03 


72 


ROL 


XL 


088F 


2E3D03 


73 


ROL 


XH 


0891 


38 


74 


SEC 




0892 


AD3C03 


75 


LDA 


XL 


0895 


ED3E03 


76 


SBC 


YL 


0898 


AA 


77 


TAX 




0899 


AD3D03 


78 


LDA 


XH 


089C 


FD3F03 


79 


SBC 


YH 


089F 


9009 


80 


BGC 


DIV3 


OSAl 


8E3C03 


81 


STX 


XL 


08A4 


8D3D63 


82 


STA 


XH 


08A7 


EE3A03 


83 


INC 


QUOTL 


08AA 


88 


84 


DIV3 DFY 




08AB 


D0D8 


85 


BNE 


DIV2 


08AD 


AD3B03 


86 


LDA 


QUOTH 


0880 


8D3503 


87 


STA 


XTEXT 


08B3 


8D3303 


88 


STA 


XLORFS 


08B6 


AD3603 


89 


LDA 


YTEXT 


08B9 


20C1FB 


90 


JSR 


BASCAL 


08BC 


AC 3 50 3 


91 


LDY 


XTEXT 


08BF 


B128 


92 


LDA 


(BASE) ,Y 


OBCl 


8D3703 


93 


STA 


CHAR 


08C4 


EE3503 


94 


INC 


XTEXT 


08C7 


EE3603 


95 


INC 


YTEXT 


08CA 


A596 


96 


LDA 


OLDBAS 


08CC 


8528 


97 


STA 


BASE 


08CE 


A597 


98 


LDA 


OLDBAS+1 


08D0 


8529 


99 


STA 


BASE+1 


08D2 


60 


100 


RTS 





CALCULATE REST OF COORDS 
XLORES = (XHIGH, XLOW) /7 
YLORES = YLOW/4 
XTEXT = (XHIGH, XLOW) /7 + 1 
YTEXT = Y LOW/8 + 1 



; DIVIDE XH,XL/YH' -> QUOTH 



;SIXTEEN BITS 



;STORF QUOTIENT IN X-COORD 



;GET THE CHARACTER OFF SCREEN 



TEXT COORD'S AKt KtLATIVt 

TO ONE NOT ZERO SO INCREMENT 

RESTORE OLD TEXT BASE ADDRESS 



8D3 


101 




PAG 




8D3 


102 


DONE 


EQU 


$C0D1 


18D3 


103 


START 


EQU 


$CODO 


8D3 


104 


XOVFL 


EQU 


$C0D4 


8D3 


105 


XCOORD 


EQU 


$C0D2 


8D3 


106 


YCOORD 


EQU 


$C0D3 


8D3 


107 


RING 


EQU 


.$c6d6 


8D3 


108 


BASCAL 


EQU 


$FBC1 


8D3 


109 


BASE 


EPZ 


$28 


8D3 


110 


OLDBAS 


EPZ 


$96 


8D3 


111 


XLOW 


EQU 


$330 


8D3 


112 


XHIGH 


FQU 


$331 


8D3 


113 


YLOW 


FQU 


$332 


8D3 


' 114 


XLORFS 


EQU 


$333 


^8D3 


115 


YLORFS 


FQU 


$334 


803 


116 


XTEXT 


FQU 


$335 


8D3 


117 


YTEXT 


EQU 


$336 


8D3 


118 


CHAR 


FQU 


$337 


i8D3 


119 


LINE 


EQU 


$338 


8D3 


120 


RWAIT 


EQU 


$339 


8D3 


121 


QUOTL 


FQU 


$33A 


8D3 


122 


QUOTH 


FQU 


'$3 3B 


8D3 


123 


XL 


EQU 


$33C 


8D3 


124 


XH 


FQU 


$330 


803 


125 


YL 


EQU 


$33E 


8D3 


126 


YH 


FQU 


$33F 


i8D3 


127 
128 


LENGTH 


EQU 
END 


*-LPEN 



PEN DONE FLAG 

START AT LINE Q 

X > 255 FLAG 

LOW X-COORD 

Y-COORD 

TOUCH SWITCH FLAG 

CALCULATF TFXt BASF ADDRESS AT BASF 

TFXT LINF BASE ADDRESS 

X RETURN COORDINATE 

HIGH PART OF X 

HIRES Y-COORD 

LORES X-COORD 

LORES Y-COORD 

X TEXT COORD 

Y TEXT COORD 

CHARACTER AT TFXT COORD. X,Y 

SCAN LINE OF 'TEARDROP' WINDOW OP MIN 

PARAMETER TO WAIT FOR PEN SWITCH 



**** END OF ASSEMBLY 

************************* 

* * 

* SYMBOL TABLE — V 1.5 * 

* * 

************************* 

.ABFL. LOC. LABEL. LOC. LABFL. LOC , 

•-* ZFRO PAGE VARIABLES: 

5ASF 0028 OLDBAS 0096 

'* ABSOLUTE VARABLES/ LABELS 



.PEN 0800 LOOP 0816 WAIT 081F 

JEWC 0842 GREST 085B DIVIDE 0878 

;TART CODO XOVFL C0D4 XCOORD C0D2 

'vLOW 0330 XHIGH 0331 YLOW 0332 

.'TEXT 0336 CHAR 0337 LINE 0338 

CL 033C XH 033D YL b33E 



DNT 08 2E 
DIV2 0885 
YCOORD C0D3 
XLORES 0333 
RWAIT 0339 
YH 033F 



DIV3 08AA 
RING C0D6 
YLORES 0334 
QUOTL 033A 
LENGTH 00D3 



DONE CODl 
BASCAL FBCl 
XTEXT 0335 
QUOTH 33B 



SYMBOL TABLE STARTING ADDRESS: 5800 
5YMB0L TABLE LENGTH: 012A 



0800 




1 


DCM "PR#1" 


0900 




2 


ORG $0900 


0900 




3 


• 
9 


0900 




4 


; LIGHT PEN HIRES 


0900 




5 


; WITH AVERAGING 


0900 




6 


1 


0900 


20DA0A 


7 


MAIN JSR INIT 


0903 


A9FF 


8 


LDA #$FF 


0905 


8DE90C 


9 


STA HCLRl 


0908 


8DF60C 


10 


STA HGOLOR 


090B 


A9BD 


11 


LDA #$BD 


090D 


8DED09 


12 


STA YP 


0910 


ADED09 


13 


STLP LDA YP 


0913 


A200 


14 


LDX #0 


0915 


AOOO 


15 


LDY #0 


0917 


20140B 


16 


JSR HPOSN 


091A 


A917 


17 


LDA #23 


091C 


A201 


18 


LDX #1 


091E 


ACED09 


19 


LDY YP 


0921 


20500C 


20 


JSR HLIN 


0924 


EEED09 


21 


INC YP 


0927 


ADED09 


22 


LDA YP 


092A 


C9C0 


23 


CMP #$C0 


092C 


D0E2 


24 


BNF STLP 


092F 


A900 


25 


STl LDA #0 


0930 


8DF709 


26 


STA XA 


0933 


8DE809 


27 


STA XA+1 


0936 


8DF909 


28 


STA YA 


0939 


8DFA09 


29 


STA YA+1 


093C 


A208 


30 


LDX #8 


093E 


208B0A 


31 


LOOPl JSR LPFN 


0941 


ADE709 


32 


LDA XA 


0944 


6DD50A 


33 


ADC XLOW 


0947 


8DE709 


34 


STA XA 


094A 


ADE809 


35 


LDA XA+1 


094D 


6DD60A 


36 


ADC XHIGH 


0950 


8DE809 


37 


STA XA+1 


0953 


18 


38 


CLC 


0954 


ADE909 


39 


LDA YA 


0957 


6DD70A 


40 


ADC YLOW 


095A 


8DE909 


41 


STA YA 


095D 


A900 


42 


LDA #0 


095F 


6DEA09 


43 


ADC YA+1 


0962 


8DEA09 


44 


STA YA+1 


0965 


CA 


45 


DEX 


0966 


D0D6 


46 


BNE LOOPl 


0968 


ADE909 , 


47 


LDA YA 


096B 


8DED09 


48 


STA YP 


096E 


ADEA09 


49 


LDA YA+1 


0971 


8DEE09 


50 


STA YP+1 


0974 


ADE709 


51 


LDA XA 


0977 


8DEB09 


52 


STA XP 


097A 


ADE809 


53 


LDA XA+1 


097D 


8DFC09 


54 


STA XP+1 


0980 


20F209 


55 


JSR DIV8 


0983 


ADED09 


56 


LDA YP 


0986 


AEEB09 


57 


LDX XP 


0989 


ACEC09 


58 


LDY XP+1 


098C 


20620B 


59 


JSR HPLOT 



;CLFAR SCREEN 
;HCOLOR - WHITF 



;DRAW CLEARING LINE AT BOTTOM 



;ZFRO TOTALS 



;GFT 'A LIGHT PEN NUMBER 



;YA = YA + YLOW 



;IF LAST ONE THE PLOT 
;YP = YA 

;XP = XA 



;XP=XP/8 : YP=YP/8 
;NOW PLOT THE POINT 



098F 




60 




PAG 




098F 


208B0A 


61 


LOOPM 


JSR 


LPEN 


0992 


2CD6C0 


62 




BIT 


RING 


0995 


303B 


63 




BMI 


WTRING 


0997 


ADD70A 


64 




LDA 


YLOW 


099A 


C9BD 


65 




CMP 


#$BD 


099C 


9003 


66 




BCC 


ST23 


099E 


4C0009 


67 




JMP 


MAIN 


09A1 


20060A 


68 


ST23 


JSR 


MPy7 


09A4 


18 


69 




CLC 




09A5 


ADEB09 


70 




LDA 


XP 


09A8 


6DD50A 


71 




ADC 


XLOW 


09AB 


8DEB09 


7 2 




STA 


XP 


09AF 


ADEC09 


73 




LDA 


XP+1 


09B1 


6DD60A 


74 




ADC 


XHIGH 


09B4 


8DFC09 


75 




STA 


XP+1 


09B7 


18 


76 




CLC 




09B8 


ADED09 


77 




LDA 


YP 


09BB 


6DD70A 


78 




ADC 


YLOW 


09BE 


8DFD09 


79 




STA 


YP 


09C1 


ADEE09 


80 




LDA 


YP+1 


09C4 


6900 


81 




ADC 


#0 


09C6 


8DEE09 


82 




STA 


YP+1 


09C9 


20F209 


83 




JSR 


DIV8 


09CC 


205C0A 


84 




JSR 


PLOTP 


09CF 


4C8F09 


85 




JMP 


LOOPM 


09D2 


2CD6C0 


86 


WTRING 


BIT 


RING 


09D5 


30FB 


87 




BMI 


WTRING 


09D7 


4C2E09 


88 




JMP 


STl 


09DA 


AD56C0 


89 


RETURN 


LDA 


$C056 


09DD 


AD54C0 


90 




LDA 


$C054 


09E0 


AD53C0 


91 




LDA 


$C053 


09E3 


AD51C0 


92 




LDA 


SC051 


09E6 


60 


93 




RTS 




09E7 


0000 


94 


XA 


HEX 


OODO 


09E9 


0000 


95 


YA 


HEX 


0000 


09EB 


0000 


96 


XP 


HEX 


0000 


09ED 


0000 


97 


YP 


HEX 


0000 


09EF 


00 


98 


Tl 


HEX 


00 


09P0 


00. 


99 


T2 


HEX 


00 


09F1 


00 


100 


T3 


HEX 


00 



;NOW GET REST OF POINTS 



;CLFAR SCREEN IF Y>188 



;XP = (7*XP + ZX) 



;YP = (7*YP + ZY) 



;XP=XP/B : YP=YP/8 
;NOW PLOT 



■>9F2 




101 


PAG 




)9F2 




102 ; 






)9F2 




103 ; 


DIVIDE XF 


,YP B^ 


)9F2 




104 J 






)9F2 


A203 


10 5 DIV8 LDX 


#3 


)9F4 


18 


106 DIVL CLC 




)9F5 


6EEC09 


107 


ROR 


XP+1 


)9F8 


6EFB09 


108 


ROR 


XP 


i9FB 


18 


109 


CLC 




)9FC 


6EEE09 


110 


ROR 


YP+1 


)9FF 


6EED09 


111 


ROR 


YP 


!A02 


CA 


112 


DFX 




!A0 3 


DOEF 


113 


BNE 


DIVL 


:.A05 


60 


114 


RTS 




)A06 




115 






;A06 




116 


; MULTIPLY 


XP,YP 


•A06 




117 






;A06 


A202 


118 r 


4PY7 LDX 


#2 


1A08 


ADEB09 


119 


LDA 


XP 


fAOB 


8D580A 


120 


STA 


XT 


)AOE 


ADEC09 


121 


LDA 


XP+1 


)A11 


8D590A 


122 


STA 


XT+1 


)A14 


ADED09 


123 


LDA 


YP 


1A17 


8D5A0A 


124 


STA 


YT 


)A1A 


ADEE09 


125 


LDA 


YP+1 


)A1D 


8D5B0A 


126 


STA 


YT+1 


)A20 


18 


127 I 


-1PYL CLC 




)A21 


2E580A 


128 


ROL 


XT 


)A24 


2F590A 


129 


ROL 


XT+1 


)A27 


18 


130 


CLC 




)A28 


2E5A0A 


131 


ROL 


YT 


)A2B 


2E5B0A 


132 


ROL 


YT+1 


)A2E 


18 


133 


CLC 




1A2F 


ADEB09 


134 


LDA 


XP 


iA32 


6D580A 


135 


ADC 


XT 


)A35 


8DFB09 


136 


STA 


XP 


)A38 


ADEC09 


137 


LDA 


XP+1 


)A3B 


6D590A 


138 


ADC 


XT+1 


)A3E 


8DEC09 


139 


STA 


XP+1 


)A41 


18 


140 


CLC 




)A42 


ADED09 


141 


LDA 


YP 


)A45 


6D5A0A 


142 


ADC 


YT 


)A48 


8DED09 


143 


STA 


YP 


)A4B 


ADEE09 


144 


LDA 


YP + 1 


)A4E 


6D5B0A 


145 


ADC 


YT+1 


)A51 


8DEE09 


146 


STA 


YP+1 


)A54 


CA 


147 


DFX 




:)A55 


D0C9 


148 


BNE 


MPYL 


)A57 


60 


149 


RTS 




")A58 


0000 


150 


XT ADR 


$0000 


)A5A 


0000 


151 


YT ADR 


$0000 



/SHIFT RIGHT 3 TIMES 



0A5C 




152 


PAG 




OftSC 




153 


• 




0A5C 




154 


; PLOT HLIN TO 


0A5C 




155 


• 




0A5C 


ADED09 


156 


PLOTP LDA 


yp 


0A5F 


C9BD 


157 


CMP 


#$BD 


0A61 


9005 


158 


BCC 


PPl 


0A63 


A9BC 


159 


LDA 


#$BC 


0A65 


8DED09 


160 


STA 


YP 


0A68 


ADEC09 


161 


PPl LDA 


XP+1 


0A6B 


FOll 


162 


BEQ 


PP3 


0A6D 


ADEB09 


163 


LDA 


XP 


0A70 


C916 


164 


CMP 


#$16 


0A7 2 


900A 


165 


BCC 


PP3 


0A74 


A901 


166 


LDA 


#1 


0A76 


8DFC09 


167 


STA 


XP+1 


0A79 


A916 


168 


LDA 


#$16 


0A7B 


8DFB09 


169 


STA 


XP 


0A7E 


ADEB09 


170 


PP3 LDA 


XP 


OASl 


AEEC09 


171 


LDX 


XP+1 


0A8 4 


ACED09 


172 


LDY 


YP 


0A8 7 


20500C 


173 


JSR 


HLIN 


0A8A 


60 


174 


RTS 





0A8B 




175 




PAG 




0A8B 




176 








0A8B 




177 


•r MACHINE CODE LI 


OABB 




178 








0A8B 




179 , 


ON EXIT: 




0A8B 




180 , 


XHIGH, XLOW 


0A8B 




181 , 


■ YLOW 




0A8B 




182 , 








0A8B 


A9FF 


183 LPEN 


LDA 


#$FF 


0A8D 


8DD60A 


184 




STA 


XHIGH 


0A90 


8DD50A 


185 




STA 


XLOW 


0A9 3 


8DD70A 


186 




STA 


YLOW 


0A96 


8DD80A 


187 




STA 


LINE 


0A99 


EED80A 


188 ] 


LOOP 


INC 


LINE 


0A9C 


ADD80A 


189 




LDA 


LINE 


0A9F 


8DD0C0 


190 




STA 


START 


0AA2 


2CD1C0 


191 WAIT 


BIT 


DONE 


0AA5 


lOFB 


192 




BPL 


WAIT 


0AA7 


ADD4C0 


193 DNT 


LDA 


XOVFL 


OAAA 


2A 


194 




ROL 




OAAB 


A900 


195 




LDA 


#0 


OAAD 


2A 


196 




ROL 




OAAE 


CDD60A 


197 




CMP 


XHIGH 


OABl 


9009 


198 




BCC 


NEWC 


0AB3 


ADD2C0 


199 




LDA 


XCOORD 


0AB6 


CDD50A 


200 




CMP 


XLOW 


0AB9 


9001 


201 




BCC 


NEWC 


OABB 


60 


202 




RTS 




OABC 


ADD4C0 


203 NFWC 


LDA 


XOVFL 


OABF 


2A 


204 




ROL 




OACO 


A900 


205 




LDA 


#0 


0AC2 


2A 


206 




ROL 




0AC3 


8DD60A 


207 




STA 


XHIGH 


0AC6 


ADD2C0 


208 




LDA 


XCOORD 


0AC9 


8DD50A 


209 




STA 


XLOW 


OACC 


ADD3Cn 


210 




LDA 


YCOORD 


OACF 


8DD70A 


211 




STA 


YLOW 


0AD2 


4C990A 


212 




JMP 


LOOP 


0AD5 




213 DONE 


EQU 


$C0D1 


0AD5 




214 START 


FQU 


$C0DO 


0AD5 




215 XOVFL 


EQU 


$C0D4 


0AD5 




216 XCOORD 


FQU 


$C0D2 


0AD5 




217 YCOORD 


EQU 


$C0D3 


0AD5 




218 RING 


FQU 


$C0D6 


0AD5 




219 BASCAL 


EQU 


$FBC1 


0AD5 


00 


220 XLOW 


HEX 


00 


0AD6 


00 


221 XHIGH 


HEX 


00 


0AD7 


00 


222 YLOW, 


HEX 


00 


0AD8 


00 


223 LINE 


HEX 


00 


0AD9 


00 


224 RWAIT 


HEX 


00 



= HI-RFS X COORD 
= HI-RES Y COORD 



LOOP FOR PEN COORDINATES 
INCREMENT AROUND 'TEARDROP' 
UNTIL MINIMUM X IS FOUND 
START PEN AT LINE Q 
WAIT FOR PEN TO GO DONE 

;GET X OVERFLOW VALUE (0 OR 1) 



;IF LOWER THAN OLD X 

;THEN SET NEW MINIMUM X COORD 



;SFT UP A NFW MINIMUM VALUF 



;AND GET ANOTHER VALUF FROM PEN 



OADA 




225 




PAG 




OADA 




226 


• 
9 






OADA 




227 


J INITIALIZE SCREEN 


OADA 




228 


; 






OADA 


A940 


229 


INIT 


LDA 


#$40 


OADC 


8DF80C 


230 




STA 


HPAG 


OADF 


AD57C0 


231 




LDA 


HIRES 


0AE2 


AD52C0 


232 




LDA 


$C052 


0AE5 


AD55C0 


233 




LDA 


$C055 


0AE8 


AD50C0 


234 




LDA 


TXTCLR 


OAEB 


A900 


235 


HCLR 


LDA 


#0 


OAED 


8DE90C 


236 


BKGNDO 


STA 


HCLRl 


OAFO 


ADF80C 


237 


BKGND 


LDA 


HPAG 


OAF 3 


85E9 


238 




STA 


SHAPEH 


OAFS 


0910 


239 




ORA 


#$10 


0AF7 


85E1 


240 




STA 


HBASH 


0AF9 


AOOO 


241 




LDY 


#0 


OAFB 


84E0 


242 




STY 


HBASL 


OAFD 


84E8 


243 




STY 


SHAPEL 


OAFF 


ADF90C 


244 


BKGNDl 


LDA 


HCLRl 


0B02 


91E8 


245 




STA 


(SHAPFL) ,Y 


0B04 


91E0 


246 




STA 


(HBASL) ,Y 


0B06 


C8 


247 




INY 




0B07 


D0F6 


248 




BNE 


BKGNDl 


0B09 


E6E9 


249 




INC 


SHAPEH 


OBOB 


F6E1 


250 




INC 


HBASH 


OBOD 


A5E1 


' 251 




LDA 


HBASH 


OBOF 


291F 


252 




AND 


#$1F 


OBll 


DOEC 


253 




BNE 


BKGNDl 


0B13 


60 


254 




RTS 





;INIT PAGE 2 

SET HIRES DISPLAY MODE 

NO TEXT 

PAGE 2 

SET GRAPHICS DISPLAY MODE 

SET FOR BLACK BACKGROUND 



;INIT HI-RES SCREEN MEMORY 

;FOR CURRENT PAGE, NORMALLY 
;$2000-3FFF OR $4000-5FFF 



0B14 

0B14 

0B14 

0B14 

0B14 

0B14 

0B14 

0B14 

0B14 

0B14 

0B17 

OBIA 

OBID 

OBIF 

OB20 

0B22 

0B23 

0B24 

0B26 

0B28 

0B29 

0B2B 

0B2C 

0B2D 

0B2E 

0B30 

0B31 

0B33 

0B34 

0B36 

0B38 

0B3A 

0B3D 

0B3F 

0B4 

064 2 

.■)B44 

0B46 

:!B48 

0B49 

')B4B 

1B4D 

.)B50 

IB 51 

')B54 

m57 

)B58 

)B59 

)B5C 

)B5F 

)B61 

)B62 

)B62 

iB65 

'B68 

)B6A 

'B6D 

IB6F 

)B71 



8DF50C 

8EF30C 

8CP40C 

48 

29C0 

85E0 

4A 

4A 

05E0 

85E0 

68 

85E1 

OA 

OA 

OA 

25E1 

OA 

26E1 

OA 

66E0 
A5E1 

291F 

0DF80C 

85E1 

8A 

COOO 

F005 

A023 

6904 

C8 

E907 

BOFB 

8CF70C 

AA 

BD020C 

8DEB0C 

98 

4A 

ADF60C 

8DE90C 

B02F 

60 



20140B 

ADE90C 

51E0 

2DEB0C 

51E0 

91E0 

60 



255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

28 

281 

282 

28 3 

284 

285 

286 

28 7 

288 

28 9 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 



PAG 

HI=RES GRAPHICS POSITION AND 
PLOT SUBROUTINES 

ENTER: 
Y - A REG. 
XL- X REG. 
XH- Y REG. 
HPOSN STA YO 

STX XOL 

STY XOH 

PHA 

AND #$C0 

STA HBASL 

LSR 

LSR 
i , ORA HBASL 

STA HBASL 

PLA 

STA HBASH 

ASL 

ASL 

ASL 

ROL HBASH 

ASL 

ROL HBASH ■; 

ASL 

ROR HBASL 

LDA HBASH 

AND #$1F 

ORA HPAG 

STA HBASH 

TXA 

CPY #0 

BFQ HP0SN2 

LDY #$23 
ADC #4 
HPOSNl INY 
HP0SN2 SBC #$07 

BCS HPOSNl 
STY HNDX 
TAX 

LDA MSKTBL-$F9,X 
STA HMASK 
TYA 
LSR 

LDA HCOLOR 
HP0SN3 STA HCLRl 
BCS CSHFT2 
RTS 

f 

HPLOT JSR HPOSN 
LDA HCLRl 
EOR (HBASL), Y 
AND HMASK 
EOR (HBASL), Y 
STA (HBASL), Y 
RTS 



0B72 




314 




PAG 




OB 7 2 




315 








0B72 




316 


; L,R,U,D SUBROUTINES 


0B72 




317 








0B72 


102A 


318 


LFTRT 


BPL 


RIGHT 


0B74 


ADEBOC 


319 


LEFT 


LDA 


HMASK 


0B77 


4A 


320 




LSR 




0B78 


B006 


321 




BCS 


LEFTl 


0B7A 


49C0 


322 




EOR 


#$C0 


0B7C 


8DEB0C 


323 


LRl 


STA 


HMASK 


0B7F 


60 


324 




RTS 




0B80 


88 


325 


LEFTl 


DEY 




0B81 


1002 


325 




BPL 


LEFT 2 


0B83 


A027 


327 




LDY 


#$27 


0B85 


A9C0 


328 


LEFT2 


LDA 


#$co 


0B87 


8DEB0C 


329 


NEWNDX 


STA 


HMASK 


0B8A 


8CF70C 


330 




STY 


HNDX 


0B8D 


ADE90C 


331 


CSHIFT 


LDA 


HCLRl 


0B90 


OA 


332 


CSHFT2 


ASL 




0B91 


C9C0 


333 




CMP 


#$C0 


0B93 


1008 


334 




BPL 


RTSl 


0B95 


ADE90C 


335 




LDA 


HCLRl 


0B98 


497F 


336 




EOR 


#$7F 


0B9A 


8DE90C 


337 




STA 


HCLRl 


0B9D 


60 


338 


RTSl 


RTS 




0B9E 


ADEBOC 


339 


RIGHT 


LDA 


HMASK 


OBAl 


OA 


340 




ASL 




0BA2 


4980 


341 




FOR 


#$80 


0BA4 


30D6 


342 




BMI 


LRl 


0BA6 


A981 


343 




LDA 


#$81 


DBAS 


C8 


344 




INY 




0BA9 


C028 


345 




CPY 


#S28 


OBAB 


90DA 


346 




BCC 


NEWNDX 


OBAD 


AOOO 


347 




LDY 


#$00 


OBAF 


B0D6 


348 




BCS 


NEWNDX 


OBBl 


18 


349 


LRUDXl 


CLC 




0BB2 


ADEFOC 


350 


LRUDX2 


LDA 


SHAPEX 


0BB5 


2904 


351 




AND 


#$04 


0BB7 


F0 2C 


352 




BEQ 


LRUD4 


0BB9 


A97F 


353 




LDA 


#$7F 


OBBB 


2DEB0C 


354 




AND 


HMASK 


OBBE 


3lE0 


355 




AND 


(HBASL) ,Y 


OBCO 


DOIF 


356 




BNE 


LRUD3 


0BC2 


EEFAOC 


357 




INC 


COLLSN 


0BC5 


A97F 


358 




LDA 


#$7F 


0BC7 


2DEB0C 


359 




AND 


HMASK 


OBCA 


1015 


360 




BPL 


LRUD3 


OBCC 


18 


361 


LRUDl 


CLC 




OBCD 


ADEFOC 


362 


LRUD2 


LDA 


SHAPEX 


OBDO 


2904 


363 




AND 


#$04 


0BD2 


FOll 


364 




BEQ 


LRUD4 


0BD4 


BlEO 


365 




LDA 


(HBASL) ,Y 


0BD6 


4DE90C 


366 




FOR 


HCLRl 


0BD9 


2DFB0C 


367 




AND 


HMASK 


OBDC 


D003 


368 




BNE 


LRUD3 


OBDE 


EEFAOC 


369 




INC 


COLLSN 


OBEl 


51E0 


370 


LRUD3 


EOR 


(HBASL) ,Y 


0BE3 


91E0 


371 




STA 


(HBASL) ,Y 



0BE5 




372 




PAG 




0BE5 


ADEFOC 


373 


LRUD4 


LDA 


SHAPE X 


0BE8 


6DF00C 


374 




ADC 


QDRNT 


OBEB 


2903 


375 




AND 


#3 


OBED 




376 


EQ3 


FQU 


*-l 


OBED 


C902 


377 




CMP 


#2 


OBEF 


6A 


378 




ROR 




OBFO 


B080 


379 


LRUD 


BCS 


LFTRT 


0BF2 


3030 


380 


UPDWN 


BMI 


D0WN4 


0BF4 


18 


381 


UP 


CLC 




0BF5 


A5F1 


382 




LDA 


HBASH 


0BF7 


2C020D 


383 




BIT 


FQIC 


OBFA 


D022 


38 4 




BNF 


UP4 


OBFC 


06E0 


385 




ASL 


HBASL 


OBFE 


BOIA 


386 




BCS 


UP2 


OCOO 


2CEC0B 


387 




BIT 


FQ3 


0C03 


F005 


388 




BFQ 


UPl 


0C05 


691F 


389 




ADC 


#$1F 


0C07 


38 


390 




SFC 




0C08 


B012 


391 




BCS 


UP3 


OCOA 


6923 


392 


UPl 


ADC 


#$23 


OCOC 


48 


393 




PHA 




OCOD 


A5E0 


394 




LDA 


HBASL 


OCOF 


69B0 


395 




ADC 


#$B0 


OCll 


B002 


396 




BCS 


UPS 


0C13 


69F0 


397 




ADC 


#$F0 


0C15 


85E0 


398 


UPS 


STA 


HBASL 


0C17 


68 


399 




PLA 




0C18 


B002 


400 




BCS 


UP3 


OCIA 


691F 


401 


UP2 


ADC 


#$1F 


OCIC 


66E0 


402 


UP3 


ROR 


HBASL 


OCIE 


69FC 


403 


UP4 


ADC 


#$FC 


0C20 


85E1 


404 


UPDWN 1 


STA 


HBASH 


0C22 


60 


405 




RTS 




0C23 


18 


406 


DOWN 


CLC 




0C24 


A5E1 


407 


D0WN4 


LDA 


HBASH 


nc26 


5904 


408 




ADC 


#$04 


0C28 




409 


FQ4 


FQU 


*-$01 


0C2 8 


2C020D 


410 




BIT 


FQIC 


0C2B 


D0F3 


411 




BNF 


UPDWNl 


0C2D 


06E0 


412 




ASL 


HBASL 


0C2F 


9019 


413 




BCC 


DOWNl 


0C31 


69E0 


414 




ADC 


#$F0 


0C33 


18 


415 




CLC 




0C34 


2C270C 


416 




BIT 


FQ4 


0C37 


F013 


417 




BFQ 


DOWN 2 


0C39 


A5E0 


418 




LDA 


HBASL 


0C3B 


6950 


419 




ADC 


#$50 


0C3D 


49F0 


420 




EOR 


#$F0 


0C3F 


F002 


421 




BFQ 


DOWN 3 


0C41 


49F0 


422 




EOR 


#$F0 


0C43 


85E0 


423 


DOWN 3 


STA 


HBASL 


0C45 


ADF80C 


424 




LDA 


HPAG 


0C48 


9002 


425 




BCC 


DOWN 2 


0C4A 


69E0 


426 


DOWNl 


ADC 


#$E0 


0C4C 


66E0 


427 


DOWN 2 


ROR 


HBASL 


0C4E 


90D0 


428 




BCC 


UPDWNl 



DC50 




429 




PAG 




0C50 




430 , 








0C50 




431 


• LINE 


DRAVv 


r SUBRO 


0C50 




432 








0C50 




433 , 


■ ON ENTRY: 




0C50 




434 , 


; XL 


- A REG 


0C50 




435 , 


• XH 


- X REG 


0C50 




436 , 


• Y 


- Y REG 


0C50 


48 


437 HLIN 


PHA 




0C51 


38 


438 




SEC 




0C52 


EDF30C 


439 




SBC 


XOL 


0C55 


48 


440 




PHA 




0C56 


8A 


441 




TXA 




0C57 


EDF40C 


442 




SBC 


XOH 


0C5A 


8DF00C 


443 




STA 


QDRNT 


0C5D 


BOOB 


444 




BCS 


HLIN2 


0C5F 


68 


445 




PLA 




0C60 


49FF 


446 




FOR 


#$FF 


0C62 


6901 


447 




ADC 


#$01 


0C64 


48 


448 




PHA 




0C65 


A900 


449 




LDA 


#$00 


0C67 


EDFOOC 


450 




SBC 


QDRNT 


0C6A 


8DFD0C 


451 1 


^LIN2 


STA 


DXH 


0C6D 


8DF20C 


452 




STA 


EH 


nc7n 


68 


453 




PLA 




0C71 


8DFC0C 


454 




STA 


DXL 


0C74 


8DF10C 


455 




STA 


FL 


0C77 


68 


456 




PLA 




nC78 


8DF30C 


457 




STA 


XOL 


0C7B 


8EF40C 


458 




STX 


XOH 


0C7E 


98 


459 




TYA 




0C7F 


18 


460 




CLC 




0C80 


EDF50C 


461 




SBC 


YO 


0C83 


9004 


462 




BCC 


HLIN3 


0C85 


49FF 


463 




FOR 


#$FF 


nc87 


69FE 


464 




ADC 


»$FF 


0C89 


8DEE0C 


455 


HLrN3 


STA 


DY 


0C8C 


8CF50C 


466 




STY 


YO 


0C8F 


6EFO0C 


467 




ROR 


QDRNT 


0C92 


38 


468 




SEC 




0C93 


EDECOC 


469 




SBC 


DXL 


0C96 


AA 


470 




TAX 




0C97 


A9FF 


471 




LDA 


#$FF 


0C99 


EDEDOC 


472 




SBC 


DXH 


0C9C 


8DEA0C 


473 




STA 


COUNTH 


0C9F 


ACF70C 


474 




LDY 


HNDX 


0CA2 


BOOS 


475 




BCS 


M0VEX2 


0CA4 


OA 


476 


VI VEX 


ASL 




OCA 5 


20720B 


477 




JSR 


LFTRT 


OCAS 


38 


478 




SEC 




0CA9 


ADFIOC 


479 


M0VEX2 


LDA 


FL 


OCAC 


6DFF0C 


480 




ADC 


DY 


OCAF 


8DF10C 


481 




STA 


FL 


0CB2 


ADF20C 


482 




LDA 


FH 


0CB5 


E900 


483 




SBC 


#0 



0CB7 




484 


PAG 




0CB7 


8DF20C 


485 


HCOUNT STA 


FH 


OCBA 


BlEO 


486 


LDA 


(HBASL) ,Y 


OCBC 


4DE90C 


487 


EOR 


HCLRl 


OCBF 


2DEB0C 


488 


AND 


HMASK 


0CC2 


51E0 


489 


EOR 


(HBASL) ,Y 


0CC4 


91E0 


490 


STA 


(HBASL) ,Y 


0CC6 


E8 


491 


INX 




0CC7 


D005 


492 


BNE 


HLIN4 


0CC9 


EEEAOC 


493 


INC 


COUNTH 


OCCC 


FOIA 


494 


BFO 


RTS 2 


OCCF 


ADFOOC 


495 


HLIN4 LDA 


QDRNT 


OCDl 


BODl 


496 


ECS 


MOVEX 


0CD3 


20F20B 


497 


JSR 


UPDWN 


0CD6 


18 


498 


CLC 




0CD7 


ADFIOC 


499 


LDA 


EL 


OCDA 


6DEC0C 


500 


ADC 


DXL 


OCDD 


8DF10C 


501 


STA 


FL 


OCEO 


ADF20C 


502 


LDA 


EH 


0CF3 


6DED0C 


503 


ADC 


DXH 


0CE6 


50CF 


504 


BVC 


HCOUNT 


0CE8 


60 


505 


RTS2 RTS 





0CE9 




506 




PAG 




0CE9 




507 








0CE9 




508 


; FQUATES 




0CE9 




509 








0CE9 




SIO 


SHAPEL 


FPZ 


$E8 


0CE9 




511 


SHAPEH 


EPZ 


$F9 


0CF9 


00 


512 


HCLRl 


HEX 


00 


OCEA 


00 


513 


COUNTH 


HEX 


00 


OCEB 




514 


HBASL 


FPZ 


$E0 


OCEB 




515 


HBASH 


FPZ 


$E1 


OCEB 


00 


516 


HMASK 


HEX 


00 


OCEC 


00 


517' 


DXL 


HFX 


00 


OCED 


00 


518 


DXH 


HEX 


00 


OCEE 


00 


519 


DY 


HEX 


00 


OCEF 


00 


520 


SHAPEX 


HEX 


00 


OCPO 


00 


521 


QDRNT 


HEX 


00 


OCFl 


00 


522 


EL 


HEX 


00 


0CF2 


00 


523 


EH 


HEX 


00 


0CF3 


00 


524 


XOL 


HEX 


00 


0CF4 


00 


525 


XOH 


HEX 


00 


0CF5 


00 


526 


YO 


HEX 


00 


0CF6 


00 


527 


HCOLOR 


HEX 


00 


0CF7 


00 


528 


HNDX 


HEX 


00 


0CF8 


00 


529 


HPAG 


HEX 


00 


0CF9 


00 


530 


SCALE 


HEX 


00 


OCFA 


00 


531 


COLLSN 


HEX 


00 


OCFB 


818284 


532 


MSKTBL 


HFX 


8182848890A0C0 


OCFF 


8890A0 










ODOl 


CO 










0D02 


IC 


533 


FQIC 


HEX 


IC 


0003 


FFFEFA 


534 


COS 


HFX 


FFFEFAF4ECF1D4 


0D06 


F4ECE1 










0DG9 


D4C5 










ODOB 


B4A18D 


535 




HFX 


B4A18D78614931 


ODOE 


786149 










ODll 


3118FF 










0D14 




536 


HIRES 


EQU 


$C057 


0D14 




537 


MIXSFT 


EQU 


$C053 


0D14 




538 


TXTCLR 


EQU 


$C050 


0D14 




539 


LENGTH 


EQU 


*-MAIN 



0D14 



540 
541 



PAG 
END 



***** END OF ASSEMBLY 



************************* 

* * 

* SYMBOL TABLE — V 1.5 * 

* * 
************************* 

LABEL. LOC. LABEL. LOC . LABEL. LOC . 

** ZERO PAGE VARIABLES: 

SHAPEL 00E8 SHAPEH 00E9 HBASL OOFO HBASH OOEl 

** ABSOLUTE VARABLES/LABELS 



MAIN 


0900 


STLP 


0910 


















STl 


092E 


LOO PI 


093F 


LOOPM 


098F 


ST23 


09A1 


WTRING 


09D2 


RETURN 


09DA 


XA 


09E7 


YA 


09E9 


XP 


09EB 


YP 


09ED 


Tl 


09EF 


T2 


09F0 


T3 


09F1 


DIV8 


09F2 


DIVL 


09F4 


MPY7 


0A06 


MPYL 


0A20 


XT 


0A58 


YT 


0A5A 


PLOTP 


0A5C 


PPl 


0A68 


PP3 


0A7E 


LPEN 


0A8B 


LOOP 


0A99 


WAIT 


0AA2 


DNT 


0AA7 


NEWC 


OABC 


DONE 


CODl 


START 


CODO 


XOVFL 


C0D4 


XCOORD 


C0D2 


YCOORD 


C0D3 


RING 


C0D6 


BASCAL 


FBCl 


XLOW 


0AD5 


XHIGH 


0AD6 


YLOW 


0AD7 


LINE 


0AD8 


RWAIT 


0AD9 


INIT 


OADA 


HCLR 


OAEB 


BKGNDO 


OAED 


BKGND 


OAFO 


BKGNDl 


OAFF 


HPOSN 


0B14 


HPOSN 1 


0B48 


HP0SN2 


0B49 


HP0SN3 


0B5C 


HPLOT 


0B52 


LFTRT 


0B72 


LEFT 


0B74 


LRl 


0B7C 


LEFTl 


OB 80 


LEFT 2 


0B85 


NEWNDX 


0B87 


CSHIFT 


0B8D 


CSHFT2 


0B90 


RTSl 


0B9D 


RIGHT 


0B9E 


LRUDXl 


OBBl 


LRUDX2 


0BB2 


LRUDl 


OBCC 


LRUD2 


OBCD 


LRUD3 


OBEl 


LRUD 4 


0BE5 


EQ3 


OBEC 


LRUD 


OBFO 


UPDWN 


0BF2 


UP 


0BF4 


UPl 


OCOA 


UP5 


0C15 


UP2 


OCIA 


UP3 


OCIC 


UP4 


OCIE 


UPDWN 1 


0C20 


DOWN 


0C23 


DOWN 4 


0C24 


EQ4 


0C27 


DOWN 3 


0C43 


DOWNl 


0C4A 


DOWN 2 


0C4C 


HLIN 


0C50 


HLIN2 


0C6A 


HLIN3 


0C89 


MO VEX 


0CA4 


M0VEX2 


0CA9 


HCOUNT 


0CB7 


HLIN4 


OCCE 


RTS2 


0CF8 


HCLRl 


0CE9 


COUNTH 


OCEA 


HMASK 


OCEB 


DXL 


OCEC 


DXH 


OCED 


DY 


OCEE 


SHAPEX 


OCEF 


QDRNT 


OCFO 


EL 


OCFl 


EH 


0CF2 


XOL 


0CF3 


XOH 


0CF4. 


YO 


0CF5 


HCOLOR 


0CF6 


HNDX 


0CF7 


HPAG 


0CF8 


SCALE 


0CF9 


COLLSN 


OCFA 


MSKTBL 


OCFB 


EQIC 


0D02 


COS 


0D03 


HIRES 


0057 


MIXSFT 


C053 


TXTCLR 


C050 


LENGTH 


0414 



SYMBOL TABLE STARTING ADDRESS: 5800 
SYMBOL TABLE LENGTH: 3D2 



!PR#0 
PR#0 



0800 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0900 
0903 
0905 
0908 
090B 
090E 
0911 
0913 
0915 
0917 
0919 
0919 
0919 
091C 
091F 
0921 
0923 
0926 
0929 
092C 
092F 
0931 
0934 
0934 
0934 
0937 
093A 
093D 
0940 
0942 
0945 
0948 
094A 
094A 
094A 
094D 
0950 
0953 
0956 
0958 
095B 
095E 
0961 
0964 
0967 
0969 
096C 
096E 
0970 



2058FC 

A900 

8D3903 

8D0FOC 

20170A 

20F309 

A949 

85FE 

A90C 

85FF 



2058FC 

20320A 

A999 

AOOB 

20B10A 

AD130C 

20C1FB 

AC120C 

B128 

8D140C 



20C60A 

CF3603 

AD120C 

CD3503 

D008 

AD130C 

CD3603 

F028 



AD130C 

20C1FB 

AC120C 

AD140C 

9128 

AD3603 

8D130C 

20C1FB 

AC3503 

8C120C 

B128 

8D140C 

293F 

0940 

9128 



1 
2 
3 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



DCM "PR#1" 
ORG $0900 

THIS PROGRAM WILL PRINT OUT THF FNTIRF CATALOG IN SFCTIONS 
AND WAIT FOR THF USER TO SFLFCT A FILF TO RUN WITH THF 
LIGHT PEN. IF THF USER PAGES THROUGH THF WHOLE CATALOG 
WITHOUT SFLFCTING ANYTHING, THF PROGRAM WILL END. 



CONTRL JSR HOME 
LDA #0 
ST A RWAIT 
STA INDEX 
JSR GETCUR 
JSR CAT 
LDA #BUFFER 
STA BUFPTR 
LDA /BUFFER 
STA BUFPTR+1 



CTRL? : 



CTRl; 



CHANGE ; 



JSR HOME 
JSR CATl 
LDA #MESS 
LDY /MESS 
JSR PBUFF 
LDA OLDY 
JSR BASCAL 
LDY OLDX 
LDA (BASF),Y 
STA TFMP 



JSR LPEN 

DFC YTFXT 

LDA OLDX 

CMP XTEXT 

BNE CHANGE 

LDA OLDY 

CMP YTEXT 

BEQ CTR2 



LDA OLDY 

JSR BASCAL 

LDY OLDX 

LDA TEMP 

STA (BASE),Y 

LDA YTEXT 

STA OLDY 

JSR BASCAL 

LDY XTEXT 

STY OLDX 

LDA (BASE),Y 

STA TEMP 

AND #$3F 

ORA #$4 

STA (BASF),Y 



;SFT UP RING WAIT 

;GFT CURRENT SLOT AND DRIVE 

;SET UP BUFFER POINTER 



;CLFAR THF SCREEN 
;PRINT 15 FILES 



;GFT INITIAL CHAR AT X,Y 



; AND WAIT FOR USFR RFSPONSF 
;DFCRFMFNT FOR M.C. PURPOSES 



0972 




58 


PAG 




0972 




59 


• 




0972 




60 


CTR2: 




0972 


2CD6C0 


61 


BIT 


RING 


0975 


lOBD 


62 


BFL 


CTRl 


0977 


AE3603 


63 


LDX 


YTEXT 


097A 


CA 


64 


DEX 




097B 


EClOOC 


65 


CPX 


COUNT 


097E 


B046 


66 


BCS 


CTR3 


0980 


8A 


67 


TXA 




0981 


OA 


68 


ASL 




0982 


AA 


69 


TAX 




0983 


BD160C 


70 


LDA 


PTRS,X 


0986 


85FA 


71 


STA 


POINT 


0988 


E8 


72 


INX 




0989 


BD160C 


73 


LDA 


PTRS,X 


098C 


85FB 


74 


STA 


POINT+1 


098E 


A002 


75 


LDY 


#2 


0990 


BIFA 


76 


LDA 


(POINT) ,Y 


0992 


2907 


77 


AND 


#7 


0994 


F03E 


78 


BEQ 


FILFRR 


0996 


48 


79 


PHA 




0997 


2039FB 


80 


JSR 


SETTXT 


099A 


2058FC 


81 


JSR 


HOME 


099D 


68 


82 


PLA 




099E 


2904 


83 


AND 


#4 


09A0 


FOOA 


84 


BEQ 


BASIC 


09A2 


A9E1 


85 


LDA 


#BRUN 


09A4 


AOOB 


86 


LDY 


/BRUN 


09A6 


20B10A 


87 


JSR 


PBUFF 


09A9 


4CB309 


88 


JMP 


PFILE 


09AC 




89 


• 




09 AC 




90 


BASIC: 




09 AC 


A9EA 


91 


LDA 


#RUN 


09AE 


AOOB 


92 


LDY 


/RUN 


09B0 


20B10A 


93 


JSR 


PBUFF 


09B3 




94 


• 




09B3 


A003 


95 


PFILE LDY 


#3 


09B5 


A21E 


96 


LDX 


#30 


09B7 


BIFA 


97 


PFLP LDA 


(POINT) ,Y 


09B9 


20EDFD 


98 


JSR 


PUTC 


09BC 


C8 


99 


I NY 




09BD 


CA 


100 


DFX 




09BE 


D0F7 


101 


BNF 


PFLP 


09C0 


A98D 


102 


LDA 


#$8D 


09C2 


20EDFD 


103 


JSR 


PUTC 


09C5 


60 


104 


RTS 




09C6 




105 


• 




09C6 




106 


CTR3: 




09C6 


A900 


107 


LDA 


#0 


09C8 


20A8FC 


108 


JSR 


WAITl 


09CB 


2C110C 


109 


BIT 


FOB 


09CE 


3003 


110 


BMI 


CTRFX 


09D0 


4C1909 


111 


JMP 


CTRLP 


09D3 


60 


112 


CTREX RTS 





CHECK Y COORD AGAINST 

THE NUMBER OF FILES PRINTED OUT 

TO SEE IF THE LIGHT PEN 

WAS ON ONE OF THE FILES 
POINT TO FILE DESCRIPTOR 



;CHFCK IF A GOOD FILE TO RUN 

,-CAN'T RUN ANYTHING BUT 
; INT, APPL, BINARY 

;SETUP FOR NORMAL OPERATION 



;CHFCK IF BASIC OR BINARY 



; PRINT FILE NAME 



;RUN THE BASIC FILE 



; PRINT OUT FILE NAME 



;RUN THE FILE 

;WAIT FOR USER 

; CHECK FOR END OF CATALOG 



09D4 

09D4 

09D4 

09D4 

09D6 

09D9 

09DB 

09DD 

09DF 

09E1 

09E4 

09E6 

09F9 

09FB 

09ED 

09F0 

09F3 

09F3 

09F3 

09F3 

09F3 

09F3 

09F3 

09F5 

09F8 

09FA 

09FD 

09FF 

0A02 

0A04 

0A07 

0A09 

OAOB 

OAOF 

OAll 

0A14 

0A16 

0A17 

0A17 

0A17 

0A17 

0A17 

OAIA 

OAIC 

OAIE 

0A20 

0A22 

0A25 

0A28 

0A29 

0A2B 

0A2E 

0A31 



A914 

2024FC 

A900 

8524 

A9F2 

AOOB 

20B10A 

A900 

20A8FC 

A900 

8524 

209CFC 

4C7209 



A90C 

8D3D0C 

A911 

8D38 0C 

A90C 

8D390C 

A901 

8D400C 

A90C 

A034 

2000BD 

FF3D0C 

CF390C 

DOFl 

60 



20F303 

85FF 

84FE 

AOOF 

BIFE 

8D430C 

8D350C 

C8 

BIFE 

8D440C 

8D360C 

60 



113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 



FILERR; 



PAG 



LDA #20 
JSR VTAB 
LDA #0 
STA CSRHRZ 
LDA #ERR . 
LDY /FRR 
JSR PBUFF 
LDA #0 
JSR WAITl 
LDA #0 
STA CSRHRZ 
JSR FRFOL 
JMP CTR2 



;TAB DOWN TO LINF 20 



; AND PRINT FRROR MESSAGE 



;WAIT FOR USER READ 
; AND FRASF THE LINF 



READ IN CATALOG TRACK OFF DISK 



CAT: 

LDA 
STA 

LDA 
STA 
LDA 
STA 
LDA 
STA 
CLOOP LDA 
LDY 
JSR 
INC 
DEC 
ONE 
RTS 



/BUFFER 

BUF+1 

#$11 

TRACK 

#$C 

SECTOR 

01 

CMD 

/lOB 

#IOB 

SBDOO 

BUF+1 

SECTOR 

CLOOP 



;SELECT BUFFER POINTER 
; TRACK NUMBER 
; SECTOR NUMBER 



;INCREMFNT BUFFER ADDRESS 



GET CURRENT SLOT AND DRIVE 



GETCUR 



JSR 
STA 
STY 
LDY 
LDA 
STA 
STA 
INY 
LDA 
STA 
STA 
RTS 



GETIOB 

BUFPTR+1 

BUFPTR 

#$F 

(BUFPTR) ,Y 

PRVSLT 

SLOT 

(BUFPTR) ,Y 

PRVDRV 

DRIVE 



;GET lOCB 



;GET DRIVE AND SLOT 



0A32 




166 




PAG 




0A32 




167 








0A32 




168 


; PRINT OUT SEGMENT 


0A32 




169 








0A32 




170 


CATl: 






0A32 


A900 


171 




LDA 


#0 


0A34 


8D100C 


172 




STA 


COUNT 


0A37 


8D110C 


173 




STA 


EOB 


0A3A 


A98D 


174 




LDA 


#$8D 


0A3C 


20EDFD 


175 




JSR 


PUTC 


0A3F 


ADOFOC 


176 




LDA 


INDEX 


0A42 


DOOE 


177 




BNE 


CATLP 2 


0A44 




178 


• 






0A44 




179 


CATLP: 






0A44 


A90B 


180 




LDA 


#FILE1 


0A46 


8D0F0C 


181 




STA 


INDEX 


0A49 


AOOl 


182 




LDY 


#LINK 


0A4B 


BIFE 


183 




LDA 


(BUFPTR) ,Y 


0A4D 


C8 


184 




INY 




0A4E 


IIFE 


185 




ORA 


(BUFPTR) ,Y 


0A50 


FOID 


186 




BEQ 


EXIT 


0A52 




18 7 


• 
f 






0A52 




188 


CATLP2 


• 




0A52 


ACOFOC 


189 




LDY 


INDEX 


0A55 


20700A 


190 




JSR 


PRTFIL 


0A58 


ADIOOC 


191 




LDA 


COUNT 


0A5B 


C90F 


192 




CMP 


#15 ^ 


0A5D 


BOlO 


193 




BCS 


EXIT 


f)A5F 


18 


194 




CLC 




0A60 


ADOFOC 


195 




LDA 


INDEX 


0A63 


6923 


196 




ADC 


#$23 


0A65 


8D0F0C 


197 




STA 


INDEX 


0A68 


D0E8 


198 




BNE 


CATLP2 


0A6A 


E6FF 


199 




INC 


BUFPTR+1 


0A6C 


4C440A 


200 




JMP 


CATLP 


0A6F 


60 


201 


EXIT 


RTS 





;INIT COUNT OF FILES 

END OF BUFFER = FALSE 
SPACE DOWN ONE LINE 
FROM THE TOP 



;INIT INDEX TO FILES 

;WHFN BOTH BYTES OF LINK ARE 
; ZERO YOU ARE THROUGH 



; PRINT A FILE NAME 



; INCREMENT TO NEXT 



/INCREMENT POINTER FOR NEXT SECTOR 
;LOOP FOR MORE 



0A70 


202 


PAG 










0A70 


203 












0A70 


204 


; THIS PROCEDURE LOOKS 


AT 


THE 


0A70 


205 


; BUFFER AND PULLS 


OUT 


THE 


FILE 


0A70 


206 


; NAMES PRESENT. THESE FILENAMES 


0A70 


207 


; ARE THEN 


PRINTED 


TO THE 


SCREEN. 


0A70 


208 












0A70 


209 


f 










0A70 


210 


PRTFIL: 










0A70 BIFE 


211 


LDA 


(BUFPTR) 


,y 






0A72 F037 


212 


BFQ 


SETEOB 






;END OF CATALOG 


0A74 C9FF 


213 


CMP 


#$FF 








0A76 F032 


214 


BFQ 


PRTX 








0A78 A903 


215 


LDA 


#3 








0A7A 8524 


216 


STA 


CSRHRZ 






;TAB 3 


0A7C ADIOOC 


217 


LDA 


COUNT 








0A7F EEIOOC 


218 


INC 


COUNT 






;COUNT # OF FILES PRINTED 


0A8 2 OA 


219 


ASL 










0A8 3 AA 


220 


TAX 










0A84 18 


221 


CLC 








; POINT TO FILE DESCRIPTOR 


0A85 98 


222 


TYA 










0A86 65FE 


223 


ADC 


BUFPTR 








0A88 9D160C 


224 


STA 


PTRS , X 








0A8B E8 


225 


INX 










0A8C A900 


226 


■ . LDA 


#0 








0A8E 65FF 


227 


ADC 


BUFPTR+1 






-' ' , ■-- ' ■ -' 


0A90 9DI60C 


228 


' STA 


PTRS , X 








0A93 C8 


229 


INY 










0A94 C8 


230 


INY 










0A95 C8 


231 


INY 










0A96 A200 


232 


LDX 


00 






■ - il ; 


0A98 BIFE 


233 


PRTl LDA 


(BUFPTR) 


,Y 






0A9A FOOE 


234 


BEQ 


PRTX 








0A9C 20EDFD 


235 


JSR 


PUTC 






- ■•' 


0A9F C8 


236 


INY 










OAAO E8 


237 


INX 










OAAl EOIE 


238 


CPX 


#30 








0AA3 90F3 


239 


BLT 


PRTl 








0AA5 A98D 


240 


LDA 


8D 








0AA7 20EDFD 


241 


JSR 


PUTC 








OAAA 60 


242 


PRTX RTS 










OAAB 


243 


• 










OAAB A9FF 


244 


SETEOB LDA 


#$FF 






;FOB = TRUE 


OAAD 8D110C 


245 


STA 


FOB 








OABO 60 


246 


RTS 










OABl 


247 


1 










OABl 


248 


; PRINT A BUFFER TO 


SCREEN 


(Y,A) — > BUFFER 


GABl 


249 


r 










OABl 85FC 


250 


PBUFF STA 


PMESS 








0AB3 84FD 


251 


STY 


PMESS+1 








0AB5 AOOO 


252 


LDY 


#0 








0AB7 BIFC 


253 


PBLP LDA 


(PMESS) ^-y 






0AB9 FOOA 


254 


BEQ 


PBEXIT 








OABB 20EDFD 


255 


JSR 


PUTC 








OABE C8 


256 


INY 










OABF D0F6 


257 


BNE 


PBLP 








OACl E6FD 


258 


INC 


PMESS+1 








0AC3 D0F2 


259 


BNE 


PBLP 








0AC5 60 


260 


PBEXIT RTS 











0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC6 

0AC8 

OACB 

OACE 

OADl 

0AD4 

0AD6 

0AD8 

OADA 

OADC 

OADF 

OAF 2 

0AE5 

0AE8 

OAEA 

OAED 

OAEF 

0AF2 

0AF4 

0AF7 

OAFS 

OAFA 

OAFB 

OAFE 

OBOO 

0803 

0B06 

0B08 

OBOB 

OBOC 

OBOE 

OBOF 

0B12 

0B15 

0B18 

OBIB 

OBIE 

OBIF 



A9FF 

8D3103 

8D3003 

8D3203 

8D38D3 

A528 

8506 

A529 

8507 

EE3803 

AD3803 

8DD0C0 

2CD1C0 

lOFB 

2C3903 

1005 

2CD6C0 

lOFl 

ADD4C0 

2A 

A900 

2A 

CD3103 

9008 

ADD2C0 

CD3003 

B019 

ADD4C0 

2A 

A900 

2A 

8D3103 

ADD2C0 

8D3003 

ADD3C0 

8D3203 
38 

BOBB 



261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 

27 3 
274 
275 
276 
277 
278 
279 
280 
281 

28 2 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 

29 3 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 



PAG 

MACHINE CODE LIGHT PEN DRIVER ROUTINE 
ON ENTRY: 
RWAIT = FOR NO PEN SWITCH WAIT 
=-1 FOR PEN SWITCH WAIT 



ON EXIT: 
XHIGH,XLOW 
YLOW 

XLORES,YLORES 
XTEXT,YTEXT 



HI-RES X COORD 
HI-RES Y COORD 
LORES COORDS 
TEXT COORDS 



LPEN 



LOOP 



WAIT 



DNT 



NEWC 



LDA 

STA 

STA 

STA 

STA 

LDA 

STA 

LDA 

STA 

INC 

LDA 

STA 

BIT 

BPL 

BIT 

BPL 

BIT 

BPL 

LDA 

ROL 

LDA 

ROL 

CMP 

BCC 

LDA 

CMP 

BCS 

LDA 

ROL 

LDA 

ROL 

STA 

LDA 

STA 

LDA 

STA 

SEC 

BCS 



#$FF 

XHIGH 

XLOW 

YLOW 

LINE 

BASF 

OLDBAS 

BASE+1 

OLDBAS+1 

LINE 

LINE 

START 

DONE 

WAIT 

RWAIT 

DNT 

RING 

WAIT 

XOVFL 

#0 

XHIGH 

NEWC 

XCOORD 

XLOW 

GREST 

XOVFL 

#0 

XHIGH 

XCOORD 

XLOW 

YCOORD 

YLOW 

LOOP 



;INIT MAX X-COORD 



;SAVF OLD TEXT BASE ADDRESS 

/INCREMENT PEN COORDINATES AROUND 

; 'TEARDROP' WINDOW UNTIL MINIMUM X IS 

; START PEN 

;WAIT FOR PEN TO GO DONF 

;IF PEN WAIT IS TRUE (-1) 

;THFN WAIT FOR PENSWITCH 

;GFT X OVERFLOW VALUE (0 OR 1) 



;CHECK IF WE HAVE NEW MINIMUM 
;S0 WE CAN SET UP TO FIND THE 
;NEXT VALUE OR SEE IF 
;WE HAVE ALREADY HAD A SMALLEST X 

;SET UP A NEW MINIMUM VALUE 



;AND GET ANOTHER VALUE FROM PEN 



OB 21 




312 


PAG 




0B21 


AD3203 


313 


GREST LDA 


YLOW 


0824 


4A 


314 


LSR 




0B25 


4A 


315 


LSR 




0B26 


8D3403 


316 


STA 


YLORES 


0B29 


4A 


317 


LSR 




0B2A 


8D3603 


318 


STA 


YTEXT 


0B2D 


A907 


319 


LDA 


#7 


0B2F 


8D3F03 


320 


STA 


YH 


0B32 


AD3103 


321 


LDA 


XHIGH 


0B35 


8D3D03 


322 


STA 


XH 


0B38 


AD3003 


323 


LDA 


XLOW 


0B3B 


8D3C03 


324 


STA 


XL 


0B3E 


A900 


325 


DIVIDE LDA 


#0 


0B40 


8D3A03 


326 


STA 


OUOTL 


OB43 


8D3B03 


327 


STA 


QUOTH 


0B46 


8D3E03 


328 


STA 


YL 


0B49 


AOlO 


329 


LDY 


#16 


0B4B 


0E3A03 


330 


DIV2 ASL 


QUOTL 


0B4E 


2E3B03 


331 


ROL 


QUOTH 


0B51 


2E3C03 


332 


ROL 


XL 


0B54 


2E3D03 


333 


ROL 


XH 


0B57 


38 


334 


SEC 




0B58 


AD3C03 


335 


LDA 


XL 


0B5B 


ED3E03 


336 


SBC 


YL 


0B5E 


AA 


337 


TAX 




0B5F 


AD3D03 


338 


LDA 


XH 


0B62 


ED3F03 


339 


SBC 


YH 


0B65 


9009 


340 


BCC 


DIV3 


0B67 


8E3C03 


341 


STX 


XL 


0B6A 


8D3D03 


342 


STA 


XH 


0B6D 


EE3A03 


343 


INC 


QUOTL 


0B70 


88 


344 


DIV3 DFY 




0B71 


DODB 


345 


BNE 


DIV2 


0B73 


AD3B03 


346 


LDA 


QUOTH 


0B76 


8D3503 


347 


STA 


XT EXT 


0B79 


8D3303 


348 


STA 


XLORES 


0B7C 


AD3603 


349 


LDA 


YTEXT 


0B7F 


20C1FB 


350 


JSR 


BASCAL 


0B82 


AC3503 


351 


LDY 


XTEXT 


0B85 


B128 


352 


LDA 


(BASE) ,Y 


0B87 


8D3703 


353 


STA 


CHAR 


0B8A 


EF3503 


354 


INC 


XTEXT 


0B8D 


EE360 3 


355 


INC 


YTEXT 


OB90 


A506 


356 


LDA 


OLDBAS 


0B92 


8528 


357 


STA 


BASE 


0B94 


A507 


358 


LDA 


OLDBAS+1 


0B96 


8529 


359 


STA 


BASE+1 


0B98 


60 


360 


RTS 





CALCULATE REST OF COORDS 
XLORES = (XHIGH, XLOW) /7 



YLORES 


S2 


YLOW/ 4 






XTEXT 


::= 


(XHIGH 


,XL0W)/7 


+ 


YTEXT 


= 


YLOW/ 8 


+ 1 





; DIVIDE XH,XL/YH -> QUOTH 



;SIXTEFN BITS 



; STORE QUOTIENT IN X-COORD 



;GET THE CHARACTER OFF SCREEN 



TEXT COORD'S ARE RELATIVE 
TO ONE NOT ZERO SO INCREMENT 
RESTORE OLD TEXT BASE ADDRESS 



0B99 




361 




PAG 




0B99 




362 








0B99 




363 


'. *** EQUATES 


0B99 




364 








0B99 




36 5 


HOME 


EQU 


$FC58 


0B99 




366 


DONE 


EQU 


$C0D1 


0B99 




367 


START 


EQU 


$C0D0 


0B99 




368 


XOVFL 


EQU 


$C0D4 


0B99 




369 


XCOORD 


E^QU 


$C0D2 


0B99 




370 


YCOORD 


EQU 


$C0D3 


0B99 




371 


RING 


EQU 


$C0D6 


0B99 




372 


BASCAL 


EQU 


$FBC1 


0B99 




37 3 


BASE 


EPZ 


$28 


0B99 




374 


OLDBAS 


EPZ 


$06 


0B99 




375 


XLOW 


EQU 


$330 


0B99 




376 


XHIGH 


EQU 


$331 


0B99 




377 


YLOW 


EQU 


$332 


0B99 




378 


XLORES 


EQU 


$333 


0B99 




379 


YLORES 


EQU 


$334 


0B99 




380 


XT EXT 


EQU 


$335 


0B99 




381 


YTEXT 


EQU 


$336 


0B99 




382 


CHAR 


EQU 


$337 


0B99 




38 3 


LINE 


EQU 


$338 


0B99 




38 4 


RWAIT 


EQU 


$339 


0B99 




38 5 


QUOTL 


EQU 


$33A 


0B99 




386 


QUOTH 


EQU 


$33B 


0B99 




387 


XL 


EQU 


$33C 


0B99 




388 


XH 


EQU 


$33D 


0B99 




389 


YL 


EQU 


$33E 


0B99 




390 


YH 


EQU 


$33F 


0B99 


8D8D 


391 


MESS 


HEX 


8D8D 


0B9B 


D0CFC9 


392 




ASC 


"POINT 


0B9E 


CED4A0 










OBAl 


D4CFA0 










0BA4 


Cf>C9CC 










0BA7 


C5A0C1 










OBAA 


CEC4A0 










OBAD 


D4CFD5 










OBBO 


C3C8A0 










0BB3 


D2C9CE 










0BB6 


C7A0D4 










0BB9 


CFA0D2 










OBBC 


D5CE 










OBBE 


8D8D 


393 




HEX 


8D8D 


OBCO 


AOAOAO 


394 




ASC 


II II 


0BC3 


100F09 


395 




INV 


"POINT 


0BC6 


0E1420 










0BC9 


02050C 










OBCC 


0F1720 










OBCF 


06090C 










0BD2 


051320 










0BD5 


140F20 










0BD8 


030F0E 










OBDB 


14090E 










OBDE 


1505 










OBEO 


00 


396 




HEX 


00 



PEN DONE FLAG 

START AT LINE Q 

X > 255 FLAG 

LOW X-COORD 

Y-COORD 

TOUCH SWITCH FLAG 

CALCULATE TEXT BASE ADDRESS AT BASE 

TEXT LINE BASE ADDRESS 



X RETURN COORDINATE 

HIGH PART OF X 

HIRES Y-COORD 

LORES X-COORD 

LORES Y-COORD 

X TEXT COORD 

Y TEXT COORD 

CHARACTER AT TEXT COORD, 

SCAN LINE OF 'TEARDROP' 



X Y 
WINDOW OF MI 



PARAMETER TO WAIT FOR PEN SWITCH 



TO FILE AND TOUCH RING TO RUN" 



OBEl 
OBEl 
0BE4 
0BE7 
0BE9 
OBEA 
OBED 
OBFO 
OBFl 
3BF2 
3BF5 
0BF8 
0BF9 
OBFC 
OBFF 
0C02 
0C05 
0C08 
OCOB 
OCOE 
OCOF 
OCIO 
OCll 
0C12 
0C13 
0C14 
0C15 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C16 
0C34 
0C34 
0C34 
0C34 
0C35 
0C36 
0C37 
0C38 
0C39 
0C3A 
0C3C 
0C3E 
0C40 
0C41 
0C42 
0C43 
5C44 
DC45 
0C48 
0C49 
0C49 



8D8D84 

C2D2D5 

CEAO 

00 

8D8D84 

D2D5CE 

AO 

00 

AOAOAO 

AOAOAO 

AO 

43414E 

675460 

52554E 

604160 

544558 

546046 

494C45 

00 

00 

00 

00 

01 

01 

AO 

00 



01 

60 

01 

00 

11 

00 

450C 

490C 

0000 

00 

00 

00 

60 

01 

OOOIEF 

D8 



397 
398 
399 

400 
401 
402 



BRUM 



RUN 



403 

404 ERR 



405 



406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 

444 
445 



PAG 

HEX 8D8D84 

ASC "BRUN ' 

HEX 00 
HEX 8D8D84 
ASC "RUN " 

HEX 00 
ASC " 



ELK "CAN'T RUN A TEXT FILE" 



HEX 00 

INDEX HEX 00 

COUNT HEX 00 

EOB HEX 00 

OLDX HEX 01 

OLDY HEX 01 

TEMP HEX AO 

TEMPI HEX 00 

LINK EQU $1 

FILEl EPZ $B 

CSRHRZ EPZ $24 

POINT EPZ $FA 

PMESS EPZ $FC 

GETIOB EQU $03E3 

SETTXT EQU $FB39 

VTAB EQU $FC24 

FREOL EQU $FC9C 

PUTC EQU $FDED 

WAITl EQU $FCA8 

BUFPTR EPZ $FE 

PTRS DPS 30 
; INPUT/OUTPUT CONTROL 
; PAGES 91-98, AND 123- 

lOB HEX 01 

SLOT HEX 60 

DRIVE HEX 01 

VOL HEX 00 

TRACK HEX 11 

SECTOR HEX 00 

DCT ADR DEVICE 

BUF ADR BUFFER 

UNUSED HEX 0000 

CMD HEX 00 

ERROR HEX 00 

ACT VOL HEX 00 

PRVSLT HEX 60 

PRVDRV HEX 01 

DEVICE HEX 0001EFD8 

BUFFER EQU * 

LENGTH EQU *-CONTRL 



;END OF BUFFER FLAG 
;OLD TEXT COORDINATES 

;TFMP STORAGE 

;LINK DISPLACEMENT 
;FIRST FILE DISPLACMENT 

;FILE POINTER TO RUN 



;CHARACTER OUTPUT ROUTINE 

;BUFFER POINTER 

;FILE POINTERS 
BLOCK AS DESCRIBED IN THE APPLE DOS 3.2 Mi 
138. 



SLOT 6 

DRIVE 1 

ANY VOLUME 

TRACK TO BE READ/WRITTEN 

SECTOR TO BE READ/WRITTEN 

POINTER TO DEVICE CHAR. TABLE 

POINTER TO BUFFER AREA. 

COMMAND CODE GOES HERE. 

ERROR CODE RETURNED HERE. 

ACTUAL VOLUME FOUND 

PREVIOUS SLOT 

PREVIOUS DRIVE 

DEVICE CHARACTERISTICS TABLE 



0C49 



446 
447 



PAG 
END 



***** END OF ASSEMBLY 



************************* 

* * 

* SYMBOL TABLE — V 1.5 * 

* * 
************************* 



LABEL. LOC. LABEL. LOC , 
** ZERO PAGE VARIABLES: 



LABEL. LOC. 



BASE 0028 OLDBAS 0006 FILEl OOOB 
BUFPTR OOFE 

** ABSOLUTE VARABLES/LABELS 



CSRHRZ 0024 POINT OOFA PMESS OOFC 



CONTRL 


0900 


CTRLP 


0919 


CTRl 


0934 


CHANGE 


094A 


CTR2 


0972 






BASIC 


09AC 


PFILE 


09B3 


PFLP 


09B7 


CTR3 


09C6 


CTREX 


09D3 


FILFRR 


09D4 


CAT 


09F3 


CLOOP 


0A07 


GETCUR 


0A17 


CATl 


0A32 


CATLP 


0A44 


CATLP2 


0A52 


EXIT 


0A6F 


PRTFIL 


0A70 


PRTl 


0A98 


PRTX 


OAAA 


SETEOB 


OAAB 


PBUFF 


OABl 


PBLP 


0AB7 


PBEXIT 


0AC5 


LPEN 


0AC6 


LOOP 


OADC 


WAIT 


0AE5 


DNT 


0AF4 


NEWC 


OB 08 


GREST 


0B21 


DIVIDE 


0B3E 


DIV2 


0B4B 


DIV3 


0B70 


HOME 


FC58 


DONE 


CODl 


START 


CODO 


XOVFL 


C0D4 


XCOORD 


C0D2 


YCOORD 


C0D3 


RING 


C0D6 


BASCAL 


FBCl 


XLOW 


0330 


XHIGH 


0331 


YLOW 


0332 


XLORES 


0333 


YLORES 


0334 


XTEXT 


0335 


YTEXT 


0336 


CHAR 


0337 


LINE 


0338 


RWAIT 


0339 


QUOTL 


033A 


QUOTH 


033B 


XL 


033C 


XH 


033D 


YL 


033F 


YH 


033F 


MESS 


0B99 


BRUN 


OBEl 


RUN 


OBFA 


ERR 


0BF2 


INDEX 


OCOF 


COUNT 


OCIO 


FOB 


OCll 


OLDX 


0C12 


OLDY 


0C13 


TEMP 


0C14 


TEMPI 


0C15 


LINK 


0001 


GFTIOB 


3F3 


SETTXT 


FB39 


VTAB 


FC24 


ERFOL 


FC9C 


PUTC 


FDED 


WAITl 


FCA8 


PTRS 


0C16 


JOB 


0C34 


SLOT 


0C35 


DRIVE 


0C36 


VOL 


0C37 


TRACK 


0C38 


SECTOR 


0C39 


DCT 


0C3A 


BUF 


0C3C 


UNUSED 


0C3E 


CMD 


0C40 


ERROR 


0C41 


ACTVOL 


0C42 


PRVSLT 


0C43 


PRVDRV 


0C44 


DEVICE 


0C4 5 


BUFFER 


0C49 


LENGTH 


0349 







SYMBOL TABLE STARTING ADDRESS: 5800 
SYMBOL TABLE LENGTH: 033A 



!PR#0 
PR#0 



30000 REM MAKE THIS STATEMENT 

30010 REM PART OF A DIM STATEMENT 

30020 REM AT THE BEGINNING OF 

30030 REM YOUR PROGRAM 

30040 DIM ZX(2) ,ZY(2) 

30050 REM INITIALIZE MINIMUM 

30060 REM VALUES FOR X COORD. 

30070 Z1=512:ZQ=0 

30080 REM NOW RUN THROUGH LIGHT 

30090 REM PEN'S TEARDROP WINDOW 

30100 REM AND LOOK FOR A MINIMUM 

30110 REM X VALUE 

30120 REM FIRST START THE PEN 

30130 POKE -16176, ZQ 

30140 REM NOW WAIT FOR THE PEN 

30150 REM TO GET POINT AND GO 

30160 REM DONE SO WF CAN GET 

30170 REM THE COORDINATES 

30180 IF PEEK (-16175)<128 THEN 30180 

30190 REM NOW PULL COORDINATES 

30200 REM OFF THE PEN CARD 

30210 ZX{0)= PEEK (-16174 ) +256* ( PEEK (-16172) >127 ) : REM HI-RES X COORDINATE 

30220 ZY(0)= PEEK (-16173): REM HI-RES Y COORDINATE 

30230 IF ZX(0)>Z1 THEN 30330 

30240 REM X WAS LOWER THAN THE 

30250 REM PREVIOUS MINIMUM SO 

30260 REM CHECK IF NEXT ONE IS 

30270 REM LESS THAN THIS ONE 

30280 Z1=ZX(0) :Z2=ZY(0) :ZQ=ZQ+1: GOTO 30130 

30290 REM THIS IS TO WAIT FOR 

30300 REM RING TO BE PRESSED 

30310 REM SO THE USER CAN 

30320 REM INDICATE HIS RESPONSE 

30330 IF PEEK (-16170)<128 THEN 30330 

30340 REM MINIMUM X VALUE WAS 

30350 REM FOUND SO CALCULATE 

30360 REM THE VALUES FOR THE 

30370 REM LO-RES AND TEXT SCREENS 

3038 ZX(0)=Z1:ZX(1)=Z1/7:ZX(2)-ZX(1)+1 

30390 ZY(0)=Z2:ZY(l)=Z2/4:ZY(2)=Z2/8+l 

304 REM CALCULATE MEMORY LOC . 

30410 REM FOR TEXT SCREEN 

30420 ZU=1024+128*(ZY(1) MOD 8) +40* ( ZY (0 ) /64 ) +ZX { 1) 

304 30 REM GET CHAR FROM SCREEN 

30440 P0S=14:CMD= PEEK (ZU): GOSUB 30450: GOTO 30460 

30450 LC1= PEEK (224):LC2- PEEK (225) - (LC1>244 ) : POKE 81+POS+LC1-256* (LC2> 

127)+(LC2-255*(LC2>127))*256,CMD: RETURN 
30460 ZN= PEEK (ZU):Z$="L" 
30470 RETURN 
30480 REM 
30490 REM ******************** 

30500 REM * * 

30510 REM * COPYRIGHT 1979 * 

30520 REM * * 

30530 REM * SYMTEC, INC. * 

30540 REM * * 

30550 REM ******************** 



60000 REM MAKE THIS STATEMENT 

60010 REM PART OF A DIM STATEMENT 

60020 REM AT THE BEGINNING OF 

600 30 REM YOUR PROGRAM 

60040 DIM ZX(2) ,ZY(2) 

60050 REM INITIALIZE MINIMUM 

60060 REM VALUES FOR X COORD. 

60070 Zl = 512:ZQ = 

6008 REM NOW RUN THROUGH LIGHT 

60090 REM PEN'S TEARDROP WINDOW 

60100 REM AND LOOK FOR A MINIMUM 

60110 REM X VALUE 

60120 REM FIRST START THE PEN 

60130 POKE - 16176, ZQ 

60140 REM NOW WAIT FOR THE PEN 

60150 REM TO GET POINT AND GO 

60160 REM DONE SO WE CAN GET 

60170 REM THE COORDINATES 

60180 IF PEEK ( - 16175) < 128 THEN 60180 

60190 REM NOW PULL COORDINATES 

60200 REM OFF THE PEN CARD 

60210 ZX(0) = PEEK ( - 16174) + 256 * ( PEEK ( - 16172) > 127): REM HI-R 

ES X COORDINATE 

60220 ZY{0) = PEEK ( - 16173): REM HI-RES Y COORDINATE 

60230 IF ZX(0) > Zl THEN 60330 

6024 REM X WAS LOWER THAN THE 

60250 REM PREVIOUS MINIMUM SO 

60260 REM CHECK IF NEXT ONE IS 

60270 REM LESS THAN THIS ONE 

60280 Zl = ZX(0):Z2 = ZY(0):ZQ = ZQ + 1: GOTO 60130 

60290 REM THIS IS TO WAIT FOR 

60300 REM RING TO BE PRESSED 

60310 REM SO THE USER CAN 

60320 REM INDICATE HIS RESPONSE 

60330 IF PEEK ( - 16170) < 128 THEN 60330 

60340 REM MINIMUM X VALUE WAS 

60350 REM FOUND SO CALCULATE 

60360 REM THE VALUES FOR THE 

60370 REM LO-RES AND TEXT SCREENS 

60380 ZX(0) = Z1:ZX(1) = INT (Zl / 7):ZX(2) = ZX(1) + 1 

60390 ZY(0) = Z2:ZY(1) = INT (Z2 / 4):ZY(2) = INT (Z2 / 8) + 1 

60400 REM CALCULATE MEMORY LOC . 

60410 REM FOR TEXT SCREEN 

60420 ZU = 1024 + 128 * INT ((ZY(1) / 8 - INT (ZY(1) / 8)) * 8) + 40 * 

INT (ZY(0) / 64) + ZX(1) 

604 30 REM GET CHAR FROM SCREEN 

60440 ZN = PEEK (ZU):Z$ = CHR$ (ZN) 

60450 RETURN 

60460 REM 

60470 REM ******************** 

60480 REM * COPYRIGHT 1979 * 

60490 REM * * 

60500 REM * SYMTEC, INC. * 

60510 REM * * 

60520 REM ******************** 



35 

40 

45 

50 

70 

80 

100 

105 

110 

170 



0:CO(2) 







TO 
TO 



READ BO(Q,K) : NEXT K,Q 



;X4 = INT ( RND (1) * 5) 



250 
270 
290 
310 



INPUT HG: PRINT 

INPUT A$(l) 
INPUT A$(2) 



IF HG = THEN 500 

IF HG = 1 THEN 600 
GOTO 1000 - 



127) 



DIM BO(5,5) ,SC(2) ,A$(2) ,C0(2) ,WX(6) ,WY(6) ,WN{6) 
TEXT : HOME : VTAB 12 
HTAB 16: PRINT "LIGHT PEN": PRINT 
HTAB 14: PRINT "CONCENTRATION" 
FOR T =» 1 TO 2000: NEXT :C0(1) 
GOTO 260 
REM BOARD 
RESTORE 

FOR Q = TO 4 : FOR K = 
FOR Q = TO 4: FOR K = 
190 X3 = INT ( RND (1) * 5) 

200 Z = BO(X3,X4) :BO(X3,X4) = BO{Q,K) :BO(Q,K) = Z 
230 NEXT K,Q:TURN = 0: GOTO 2000 
HOME : VTAB 10 
PRINT "HOW MANY PLAYERS 
PRINT "WHAT IS PLAYER #1'S NAME ", 
PRINT "WHAT IS PLAYER #2'S NAME " 
500 A$(l) = "APPLE I":C0(1) = 1 
600 A$(2) = "APPLE II":C0(2) = 1 
700 GOTO 1000 

800 REM LIGHT PEN SUBROUTINE 
810 Zl = 512:ZQ » 
820 POKE - 16176, ZQ 

830 IF PEEK ( - 16175) < 128 THEN 830 
840 ZX = PEEK ( - 16174) + 256 * ( PEEK ( - 16172) > 
850 ZY = PEEK ( - 16173) 
860 IF ZX > Zl THEN 890 

870 Zl = ZX:Z2 = ZY:ZQ = ZQ + 1; GOTO 820 
890 ZX = Z1:ZY = Z2: RETURN 
1000 TEXT : CALL - 936: GR 
FOR P = TO 32 STEP 8: 
HLIN (M - 1) * 8, (M - 1) * 
NEXT M,L,P:SC{1) = 0:SC(2) 
REM MAIN PROGRAM 
2010 TURN = TURN + 1 
2020 VTAB (22): PRINT 
FOR TR = 1 TO 2 
PRINT A$(TR);"'S TURN" 
IF CO(TR) =1 GOTO 2121 

GOSUB 800: IF PEEK ( - 16170) < 128 THEN 2050 
X = INT (ZX / 7):Y = INT (ZY / 4) 
IF X > 39 OR X < OR Y > 39 OR Y < GOTO 2050 
IF SCRN( X,Y) = GOTO 2050 
X = INT (X / 8) :Y = INT (Y / 8) 
IF BO(X,Y) > GOTO 2125 
PRINT "ALREADY PICKED. TRY AGAIN." 
FOR H = 1 TO 100: NEXT H 
GOTO 2050 
GOSUB 25000 

2125 MN = BO(X,Y) 

2126 GOSUB 27000 
PRINT ""; 
ON MN GOSUB 11000,12000,13000,14000,15000,16000,17000,11500,12500,1 

3500,14500,15500,16500 
FOR V = 1 TO 100: NEXT V 
2150 A = X:B = Y , ■ 

2155 IF CO(TR) = 1 GOTO 2261 

2160 GOSUB 800: IF PEEK ( - 16170) < 128 THEN 2160 
2180 X = INT (ZX / 7):Y = INT (ZY / 4) 
2185 IF X > 39 OR X < OR Y > 39 OR Y < 
2190 IF SCRN( X,Y). = GOTO 2160 
2200 X = INT (X / 8):Y = INT (Y / 8) 



1005 
1040 
1050 
2000 



2030 
2040 
2045 
2050 
2070 
2075 
2080 
2090 
2100 
2110 
2115 
2120 
2121 



2127 
2130 

2140 



; COLOR= 2 
FOR L = TO 6: 
8 + 6 AT P + 
= 0: GOTO 100 



FOR M = 1 TO 

L 



TURN #";TURN 



GOTO 2160 



2210 IF BO(X,Y) > GOTO 2240 

2220 PRINT "ALREADY PICKED. TRY AGAIN." 

2230 GOTO 2160 

2240 IFX< >AORY< >B GOTO 2265 

2250 PRINT "YOU JUST PICKED THAT. TRY AGAIN." 

2260 GOTO 2160 

2261 GOSUB 26000 
2265 MN = BO{X,Y) 

2267 GOSUB 27000 

2268 PRINT ""; ^^ . 
2270 ON MN GOSUB 11000,12000,13000,14000,15000,16000,17000,11500,12500,1 

3500,14500,15500,16500 
IF BO(X,Y) = BO(A,B) OR BO{A,B) = 7 OR BO(X,Y) 



2280 
2290 
2300 
2320 
2330 



= 7 GOTO 3000 



M 



PRINT : PRINT "SORRY, NO MATCH 

FOR KP = 1 TO 500: NEXT 

COLOR= 2 

FOR M = TO 6: HLIN X 

+6ATB*8+M: NEXT 
2390 GOTO 4000 

3000 PRINT : PRINT "A MATCH !!!" 
3005 IF BO(A,B) = 7 THEN WI = BO(X,Y) 
3007 IF BO(X,Y) = 7 THEN WI = BO(A,B) 
3010 SC(TR) = SC(TR) + 1 
3020 BO(A,B) = 0:BO(X,Y) = 
3030 HN = 



8,X *8+6ATY*8+M: HLIN A * 8, A * 8 



3040 


FOR V = 


1 TO 5: FOR I = 


1 


TO 


5: 


I 


F 


BO 


(V,I) 


3050 


NEXT I,V 


















3090 


IF HN < 


2 THEN 30000 
















3095 


GOTO 2040 
















4000 


HOME : NEXT TR 
















4030 


PRINT " 


THE SCORES ARE : 


11 














4040 


PRINT A$(l) r": ";SC(1) 
















4050 


PRINT A$(2);": ";SC(2) 
















4060 


FOR N = 


1 TO 1000: NEXT 


• 


HOME 


• 
• 


GOTO 


1 2000 


11000 


COLOR= 


12: GOSUB 20000 
















11010 


COLOR= 


14 
















11020 


HLIN X 


* 8 + 1,X * 8 + 


5 


AT 


Y 


* 


8 


+ 


1 


11030 


HLIN X 


* 8 + 1,X * 8 + 


5 


AT 


Y 


* 


8 


+ 


5 


11040 


VLIN Y 


* 8 + 1,Y * 8 + 


5 


AT 


X 


* 


8 


+ 


1 


11050 


VLIN Y 


* 8 + 1,Y * 8 + 


5 


AT 


X 


* 


8 


+ 


5 


11060 


RETURN 


















11500 


COLOR= 


4: GOSUB 20000 
















11510 


COLOR= 


10: GOTO 14020 
















12000 


COLOR= 


11: GOSUB 20000 
















12010 


COLOR= 


7: GOTO 11020 
















12500 


COLOR= 


13: GOSUB 20000 
















12510 


COLOR= 


14: GOTO 16020 
















13000 


COLOR= 


8: GOSUB 20000 
















13010 


COLOR= 


5: GOTO 11020 
















13500 


COLOR= 


8: GOSUB 20000 
















13510 


COLOR= 


6: GOTO 16020 
















14000 


COLOR= 


13: GOSUB 20000 
















14010 


COLOR= 


3 
















14020 


HLIN X 


* 8 + 1,X * 8 + 


5 


AT 


Y 


* 


8 


+ 


3 


14030 


VLIN Y 


* 8 + 1,Y * 8 + 


5 


AT 


X 


* 


8 


+ 


3 


14040 


RETURN 


















14500 


COLOR= 


3: GOSUB 20000 
















14510 


COLOR= 


11 
















14520 


FOR M = 


= 1 TO 5 STEP 2 
















14530 


HLIN X 


* 8 + 1,X * 8 + 


5 


AT 


Y 


* 


8 


+ 


M 


14540 


VLIN Y 


* 8 + 1,Y * 8 + 


5 


AT 


X 


* 


8 


+ 


M 


14550 


NEXT M 


















14560 


RETURN 


















15000 


COLOR= 


14: GOSUB 20000 
















15010 


COLOR= 


9: GOTO 14020 
















15500 


COLOR= 


7: GOSUB 20000 

















> THEN HN » HN + 1 



15510 COLOR= 4: GOTO 14520 

16000 COLOR= 1: GOSUB 2000 

16010 COLOR= 15 

16020 FOR S = 1 TO 5 

16030 PLOT X * 8 + S,Y * 8 + S 

16040 PLOT X * 8 + (S * - 1) + 6,Y * 8 + S 

16050 NEXT S - , :y 

16060 RETURN 

16500 COLOR= 1: GOSUB 20000 

16510 COLOR= 6: GOTO 14520 

17000 COLOR= 5: GOSUB 20000 

17010 COLOR= 9 

17020 FOR R = 1 TO 5 STEP 2 

17030 VLIN Y * 8 + 1,Y * 8 + 5 AT X * 8 + R 

17040 NEXT R 

17050 PLOT X * 8 + 2rY * 8 + 5: PLOT X * 8 -f 4,Y * 8 + 5 

17060 VTAB (24): PRINT "THE WILD CARD ! ! ! 

17070 RETURN 

20000 FOR D = to G 

20010 HLIN X * 8,X * 8 + 6 AT Y * 8 ♦-= D 

200 20 NEXT D 

20030 RETURN 

25000 f6r K = 1 TO 5: FOR B =» K H- 1 TO 6 

25020 IF WN(K:)= WN(B) THEli 25100 

25030 ' NEXT B,K * 

25050 X = INT ( RND (1) * 5):y » INT ( RND (1) * 5) 

25060 IF BO(X,Y) = GOTO 25070 

25061 IF BO(X,Y) = WI GOTO 25070 

25062 IF TURN > I AND HN < 5 GOTO 25068 

25063 FOR LT =1 TO 6 , 

25064 IF, X=WX{LT) AND Y sWYCLT) GOTO 25050 
25066 NEXT LT 

25068 RETURN 

25070 X=X+1: IPX>4 THEN Y = Y + 1 

25080 IF X > 4 THEN X = 0: IF Y > 4 THEN Y = 

25090 GOTO 25060 

25100 IP BO(WX(K) ,WY{K)) = GOTO 25030 

25101 IP K - B. GOTO 25030 

25105 IF WX(1) = WX(3) AND WY(1) = WY(3) GOTO 25030 

25110 IF BO(WX(B) ,WY(B)) » GOTO 25030 

25120 X = WX(B):Y = WY(B): RETURN 

26000 FOR FV = 1 TO 6 

26010 IF WN(FV) = BO(A,B) GOTO 26040 

26020 NEXT FV 

26030 GOSUB 25050 

26032 IP X = A AND Y = B GOTO 26030 

26035 RETURN 

26040 IF BO(WX(FV) ,WY(FV)) = GOTO 26020 

26045 IF A = WX(FV) AND B = WY(FV) GOTO 26020 

26050 X = WX(FV):Y = WY(FV); RETURN 

27000 FOR PL = 5 TO 1 STEP - 1 , . , , 

27010 WX(PL + 1) = WX(PL) 

27020 WY{PL + 1) = WY(PL) 

27030 WN(PL + 1) = WN(PL) 

27040 NEXT PL 

27050 WX(1) = X:WY(1) = Y:WN(1) = BO(X,Y) 

27060 RETURN 

30000 TEXT : HOMb : VTAB 9: PRINT " FINAL SCORES" 

30020 PRINT : PRINT AS(1);": ••;SC(1)," " ; A$ (2) ; " : - • SC (2) 

30030 PRINT :SZ = 1: IF SC(2) > SC(1) THEN SZ =2 " 

30060 IF SC(2) = SC(1) THEN PRINT " A TIE !!!!!!": GOTO 30100 

30070 PRINT A$(SZ);" WINS !• 1 ! 1" 

30100 IF C0(1) = OR C0(2) = THEN 30109 

30105 FOR Q = 1 TO 1000: NEXT : GOTO 1000 

30109 PRINT : INPUT "DO YOU WANT TO PLAY AGAIN'' "-XS 

30118 IF LEFT$ (X$,l) = "Y" THEN 1000 ' ' 



3012 VTAB 20: PRINT " BYE !": VTAB 22 

30150 DATA 1,2,3,4,9,8,7,6,5,10,11,12,13,1,2,3,4,5,6,8,9,10,11,12,13 
60000 END 

NOTICE 

Symtec Inc. reserves the right to make improvements in the 
product described in this manual at any time and without 
notice. 



DISCLAIMER OF ALL WARRANTIES AND LIABILITY 

SYMTEC INC. MAKES NO WARRANTIES, EITHER EXPRESS OR IMPLIED, 
WITH RESPECT TO THIS MANUAL OR WITH RESPECT TO THE SOFTWARE 
DESCRIBED IN THIS MANUAL, ITS QUALITY, PERFORMANCE, 
MERCANTIBILITY, OR FITNESS FOR ANY PARTICULAR PURPOSE. SYMTEC 
INC. SOFTWARE IS SOLD OR LICENSED "AS IS". THE ENTIRE RISK AS 
TO ITS QUALITY AND PERFORMANCE IS WITH THE BUYER. SHOULD THE 
PROGRAMS PROVE DEFECTIVE FOLLOWING THEIR PURCHASE, THE BUYER 
(AND NOT SYMTEC INC., ITS DISTRIBUTOR, OR ITS RETAILER) ASSUMES 
THE ENTIRE COST OF ALL NECESSARY SERVICING, REPAIR, OR 
CORRECTION AND ANY INCIDENTAL OR CONSEQUENTIAL DAMAGES. IN NO 
EVENT WILL SYMTEC INC. BE LIABLE FOR DIRECT, INDIRECT, 
INCIDENTAL, OR CONSEQUENTIAL DAMAGES RESULTING FROM ANY DEFECT 
IN THE SOFTWARE, EVEN IF SYMTEC INC. HAS BEEN ADVISED OF THE 
POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE 
EXCLUSION OR LIMITATION OF IMPLIED WARRANTIES OR LIBILITY FOR 
INCIDENTAL OR CONSEQUENTIAL DAMAGES, SO THE ABOVE LIMITATION OR 
EXCLUSION MAY NOT APPLY TO YOU. 



This manual is copyrighted. All rights are reserved. This 
document may not, in whole or part, be copied, photocopied, 
reproduced, translated or reduced to any electronic medium or 
machine readable form without prior, written consent from 
Symtec Inc. 
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, , LIMITED WARRANTY 

Implied warranties limited to duration of express 
warranty, (some states do not allow limitations on 
how long an implied warranty lasts, so the above 
' may not apply to you). _ 

To the original purchaser only, Symtec Inc. warrants the 
Symtec Light Pen, and all components therein contained, to be 
free from defects in materials and/or workmanship for a period 
of one (1) year from the date of purchase. In the event of 
malfunction, or other indication of failure attributable 
directly to faulty workmanship and/or material, then, upon 
return of the product to Symtec Inc. at P.O. Box 462, 
Farmington, Michigan 48024 (postage paid) "Attention Warranty 
Claims Department," Symtec Inc. will, at its option, repair or 
replace said products or components, to whatever extent deemed 
necessary, to restore said product to proper operating 
condition. All such repairs or replacements shall be rendered 
by Symtec Inc. without charge for parts or labor when the 
product is returned within ninety (90) days of the date of 
purchase. During the period after ninety (90) days but before 
one (1) year from date of purchase, all repairs or replacements 
will be rendered without charge for parts. Labor will be 
charged at the rate in effect as of the time of such repair. 

The responsibility for the failure of the Symtec Inc. Light 
Pen product, or component thereof, which at the discretion of 
Symtec Inc., shall have resulted from accident, abuse, or 
misapplication of the product, shall be assumed by the 
customer, and Symtec Inc. shall assume no liability as a 
consequence of such events under the terms of this warranty. 
Further, the limited warranty provided with this Symtec Inc. 
product also shall be void if customer causes or permits the 
Symtec product to be repaired or modified by anyone other than 
the Symtec Inc. warranty service center. 

While every effort on the part of Symtec Inc. has been made 
to provide clear and accurate technical information on the 
application of its products, Symtec Inc. assumes no liability 
in any eyents which may arise from the use of said technical 
information. 

This warranty gives you specific legal rights and you may 
also have other rights which vary from state to state. 

This warranty is in lieu of all other express warranties 
which now or hereafter might otherwise arise with respect to 
this product. Any and all implied warranties, including the 
warrantids of mercantability and fitness for particular 
purpose, shall have no greater duration than the duration 
period for the express written warranty applicable to this 
product, as shown above, and shall terminate automatically at 
the expiration of such duration period. Some states do not 
allow limitations on how long an implied warranty lasts, so the 



above limitation may not apply to you. No action shall be 
brought for breach of iny implied or express warranty after one 
year subsequent to the expiration of the duration period of the 
express written warranty. 

Incidental and consequential damages caused by malfunction, 
defect or otherwise, and with respect to breach of any express 
or implied warranty, are not the responsibility of Symtec Inc. 
and, to the extent permitted by law, are hereby excluded both 
for property damage and, to the extent not unconscionable, for 
personal injury damage. Some states do not allow the exclusion 
or limitation of incidental or consequential damages, so the 
above limitation or exclusion may not apply to you. 



Send Warranty Registration Card To; 



Symtec Inc. 

P.O. Box 462 

Farmington, Michigan 48024 

For Service on SYMIEC products 
call (313) 272-2952 



SYMTEC LIGHT PEN WARRANTY REGISTRATION CARD 

Serial Numoer Model Number 

Purchased From 



(Name of Store) 
(Address) 



Name 



Address 



City, State, Zip 



Telephone Number Purchase Date 



